|
Dans la suite Microsoft Office, Visual Basic pour Applications ( VBA) est le shell de programmation qui permet aux utilisateurs avancés la possibilité de créer des documents complexes et automatisés. Une des tâches complexes que vous pouvez faire dans Excel en VBA est de créer un tableau et l'intégrer dans la même feuille de calcul sur laquelle vous travaillez. Utilisez l'objet " ChartObject " en VBA pour créer et intégrer un graphique dans une feuille de calcul Excel. Instructions
1 Ouvrez Excel 2010 et afficher l'onglet Développeur si elle n'est pas déjà affichée . Cliquez sur " Fichier" puis "Options". Cliquez sur " Personnaliser le ruban " sur le volet Catégories. Sélectionnez " développeur" dans la liste des onglets principaux , puis cliquez sur " OK".
2 Cliquez sur l'onglet " développeur" qui maintenant doit être affiché dans le ruban. Cliquez sur " Visual Basic " pour ouvrir l'éditeur Visual Basic.
3 Double -cliquez sur la feuille de calcul dans laquelle vous souhaitez intégrer le diagramme de la douleur de projet. Toutes les fiches qui sont actuellement dans votre projet est listé dans le volet . Le code de la feuille de calcul s'ouvre dans la fenêtre de code. Si vous n'avez pas déjà ajouté le code à la feuille de la fenêtre de code sera vide.
4 Cliquez sur " Insérer" puis " procédure ". Tapez un nom pour la procédure dans la fenêtre de nom, laisser toutes les autres options de la même façon et puis cliquez sur " OK". Pour l'exemple dans cet article , le nom du " embedChart . " Procédure
5 Ajoutez le code qui va intégrer un graphique dans la feuille de calcul . Cliquez entre les " Public Sub ... " et des déclarations « End Sub » qui sont maintenant dans la fenêtre de code. Vous allez ajouter le code de la procédure entre les deux déclarations . Microsoft a développé le code qui permettra de créer un tableau et l'intégrer dans la feuille de calcul actuelle. Copiez ce code dans votre procédure ou écrivez votre propre .
" EmbedChart Sub ( )
chtNew As Chart
Set chtNew = Charts.Add
set chtNew = chtNew.Location ( Où: = xlLocationAsObject , Name: = "Sheet1" )
chtNew
ChartType = xl3DPie
« définir la source de plage de données pour . le tableau
SetSourceData Source: . . = Sheets (" Sheet1" ) Range ( " A1: H2" ) . , PlotBy : . = _
xlRows
HasTitle = vrai
. ChartTitle.Text = "Ma Pie Chart"
End With
End Sub "
6 cliquez sur" Enregistrer "sur le la barre d'outils et proche de l'éditeur Visual Basic. Aller à la feuille de calcul que vous avez intégré le tableau à l'arrivée et de voir qu'il est affiché.
|
