bibiphoqie
XLDnaute Nouveau
Bonjour,
J'ai fait la macro suivante qui consiste à créer un graphqie sous Excel et à le coller dans un document Word (nommé "Tableau de suivi (Référentiel).doc"):
Cette macro marche lorsque je l'execute, par contre si je crée un bouton de commande sur ma feuille Excel et que je lui affecte cette macro (nommé "Graphique"), le graphique n'apparait pas dans mon document Word.
Bizaremment j'ai vu qu'en remplaçant la ligne:
par
Le bouton de commande affiche bien le graphique dans mon document Word, seulement je préfererai garder mon collage spécial qui me permet d'avoir le graphique comme image (et donc qui prend moins de place dans le document Word).
J'espère m'être à peu près bien exprimée et que vous saurez m'aider...
Merci!
J'ai fait la macro suivante qui consiste à créer un graphqie sous Excel et à le coller dans un document Word (nommé "Tableau de suivi (Référentiel).doc"):
Sub Graphique()
Charts.Add
ActiveChart.ChartType = xl3DBarStacked100
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B5353"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=Feuil1!R52C2"
ActiveChart.SeriesCollection(2).Name = "=Feuil1!R52C3"
ActiveChart.SeriesCollection(3).Name = "=Feuil1!R52C4"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.HasLegend = True
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Cut
'on récupère le document qui est déjà ouvert
Set WordDoc = GetObject("Q:\PROJET_CMMI_SSIFce\STEP1&2_Project\Technical documentation\Mesures projet\Tableau de Suivi (Référentiel).doc")
'coller
WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
With WordApp.Selection.ShapeRange
.ZOrder msoSendToBack
.Height = 74
.Left = 355
.Top = 369 'position verticale de l'image dans le document
End With
End Sub
Cette macro marche lorsque je l'execute, par contre si je crée un bouton de commande sur ma feuille Excel et que je lui affecte cette macro (nommé "Graphique"), le graphique n'apparait pas dans mon document Word.
Bizaremment j'ai vu qu'en remplaçant la ligne:
WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
par
WordApp.Selection.Paste
Le bouton de commande affiche bien le graphique dans mon document Word, seulement je préfererai garder mon collage spécial qui me permet d'avoir le graphique comme image (et donc qui prend moins de place dans le document Word).
J'espère m'être à peu près bien exprimée et que vous saurez m'aider...
Merci!