Add a diagram to a document with VBA

Ce sujet contient 2 réponses, 2 participants et a été mis à jour pour la dernière fois par Nicolas Beaupré, le il y a 19 années et 4 mois.

Voir les messages de 3 - 1 à 3 (sur un total de 3)

Auteur

Messages
11.01.2006 à 06:39 #34994

Nicolas Beaupré
Participant

Hi,
I can read some properties of a page in VBA, such as the shape count, but I can’t add a 2DDiagramm to the page of the document.

Here is my code : [code]Dim obj As DocObject
Set obj = ActiveDatabase.RootFolder.Object(“diag”, fpObjectType2DDiagram)
‘obj is the DocObject

With ActiveDatabase.RootFolder.Object(“doc”, fpObjectTypeDocument)
.Pages(1).AddDocObject(fpObjectType2DDiagram, 0, 0, 10, 10, “diag”)
.Pages(1).AddRectangle(20,20,30,30)
End With[/code]
The compiler talks about a syntax error, a ‘=’ would be required at the end of the lines.

Any luck that someone can help me ? Thanks

11.01.2006 à 06:39 #34996

Nicolas Beaupré
Participant

Hi,
I can read some properties of a page in VBA, such as the shape count, but I can’t add a 2DDiagramm to the page of the document.

Here is my code : [code]Dim obj As DocObject
Set obj = ActiveDatabase.RootFolder.Object(“diag”, fpObjectType2DDiagram)
‘obj is the DocObject

With ActiveDatabase.RootFolder.Object(“doc”, fpObjectTypeDocument)
.Pages(1).AddDocObject(fpObjectType2DDiagram, 0, 0, 10, 10, “diag”)
.Pages(1).AddRectangle(20,20,30,30)
End With[/code]
The compiler talks about a syntax error, a ‘=’ would be required at the end of the lines.

Any luck that someone can help me ? Thanks

11.01.2006 à 18:19 #34995

Bernhard Kantz
Participant

In VBA you have to remove the round brackets if you don’t use a assignment:
[code]
Dim oDiagram As Diagram2D
ActiveDatabase.RootFolder.Add “Diagram”, fpObjectType2DDiagram
Set oDiagram = ActiveDatabase.RootFolder.Add(“Diagram”, fpObjectType2DDiagram)
[/code]
The [b]Top[/b] value and the [b]Bottom[/B] value of the AddDocObject and the AddRectangle Property should be negative:
[code]
With ActiveDatabase.RootFolder.Object(“doc”, fpObjectTypeDocument)
.Pages(1).AddDocObject fpObjectType2DDiagram, 0, 0, 100, -100, “diag”
.Pages(1).AddRectangle 20, -20, 30, -30
End With
[/code]

Support@weisang.com
Auteur

Messages

Voir les messages de 3 - 1 à 3 (sur un total de 3)

Vous devez être connecté pour répondre à ce sujet.