1 pièce(s) jointe(s)
VBA PlubishObjects pour un graphique Chart
Bonjour,
J'aimerai pouvoir publier un graphique avec la collection PublishObjects. Cependant lorsque je renseigne un type xlSourceChart j'ai une erreur 1004. J'ai beau chercher les références à renseigner dans la méthode je n'arrive pas à débuguer. Quelqu'un a-t-il une idée?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Sub PublicationGraphique()
Dim chrt As ChartObject
Dim ws As Worksheet
Set ws = Sheets("Feuil1")
Dim co As ChartObject
Set co = ws.ChartObjects(1)
Debug.Print "Nom : " + co.Chart.Name
With ActiveWorkbook.PublishObjects.Add(xlSourceChart, "graph.htm", ws.Name, co.Chart.Name, xlHtmlStatic, "div_graph", "MonGraph")
.Publish (True)
End With
End Sub |
Pièce jointe 325140
