Comment faire pour cr�er un graphique Excel w/OLE Automation � partir de Visual Basic

Num�ro d'article: 142387 - Voir les produits auxquels s'applique cet article

ATTENTION : Cet article est issu du syst�me de traduction automatique

Cliquez ici si vous souhaitez afficher en c�te � c�te l?article anglais et sa traduction automatique en fran�ais

Agrandir tout | R�duire tout

R�sum�

Cet article illustre comment utiliser Automation dans un programme Visual Basic pour cr�er un classeur Excel qui contient un graphique incorpor� dans une feuille de calcul.

Retour au d�but | Envoyer des commentaires

Plus d'informations

�tapes pour cr�er l'exemple de programme

D�marrez un nouveau projet dans Visual Basic. Form1 est cr�� par d�faut.
Ajoutez un bouton de commande (Command1) � Form1.

Ajoutez le code suivant � la proc�dure d'�v�nement Command1_Click :

  Private Sub Command1_Click()
   
    Dim oXL As Object        ' Excel application
    Dim oBook As Object      ' Excel workbook
    Dim oSheet As Object     ' Excel Worksheet
    Dim oChart As Object     ' Excel Chart
    
    Dim iRow As Integer      ' Index variable for the current Row
    Dim iCol As Integer      ' Index variable for the current Row
    
    Const cNumCols = 10      ' Number of points in each Series
    Const cNumRows = 2       ' Number of Series

    
    ReDim aTemp(1 To cNumRows, 1 To cNumCols)
    
    'Start Excel and create a new workbook
    Set oXL = CreateObject("Excel.application")
    Set oBook = oXL.Workbooks.Add
    Set oSheet = oBook.Worksheets.Item(1)
    
    ' Insert Random data into Cells for the two Series:
    Randomize Now()
    For iRow = 1 To cNumRows
       For iCol = 1 To cNumCols
          aTemp(iRow, iCol) = Int(Rnd * 50) + 1
       Next iCol
    Next iRow
    oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = aTemp
    
    'Add a chart object to the first worksheet
    Set oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart
    oChart.SetSourceData Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols)

    ' Make Excel Visible:
    oXL.Visible = True

    oXL.UserControl = True
        
End Sub

Appuyez sur la touche F5 pour ex�cuter le programme, puis cliquez sur le bouton de commande.

R�sultats : Microsoft Excel d�marre et un nouveau classeur est cr��. Des donn�es al�atoires sont ajout�es � A1:J2 de cellules et un graphique est incorpor� dans la premi�re feuille de calcul. Le graphique incorpor� utilise les donn�es al�atoires pour sa source.

Retour au d�but | Envoyer des commentaires

Propri�t�s

Num�ro d'article: 142387 - Derni�re mise � jour: mercredi 30 juin 2004 - Version: 4.3

Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):

Microsoft Office Excel 2003
Microsoft Excel 2002
Microsoft Excel 2000 Standard
Microsoft Excel 97 Standard
Microsoft Visual Basic 6.0 �dition professionnelle
Microsoft Visual Basic 5.0 �dition professionnelle
Microsoft Visual Basic Enterprise Edition for Windows 6.0
Microsoft Visual Basic 5.0 �dition Entreprise

kbmt kbhowto kbprogramming KB142387 KbMtfr

Traduction automatique

IMPORTANT : Cet article est issu du syst�me de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis � votre disposition en compl�ment des articles traduits en langue fran�aise par des traducteurs professionnels. Cela vous permet d?avoir acc�s, dans votre propre langue, � l?ensemble des articles de la base de connaissances r�dig�s originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne �trang�re s?exprimant dans votre langue !). N�anmoins, mis � part ces imperfections, ces articles devraient suffire � vous orienter et � vous aider � r�soudre votre probl�me. Microsoft s?efforce aussi continuellement de faire �voluer son syst�me de traduction automatique.

La version anglaise de cet article est la suivante: 142387

(http://support.microsoft.com/kb/142387/en-us/ )

L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Retour au d�but | Envoyer des commentaires