Add a diagram to a document with VBA

SupportCommunity Automation and VBA Add a diagram to a document with VBA

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Autor
    Beiträge
  • #12425

    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 :

    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

    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

    #8106

    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 :

    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

    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

    #8703
    Bernhard KantzBernhard Kantz
    Moderator

    In VBA you have to remove the round brackets if you don’t use a assignment:

    
        Dim oDiagram As Diagram2D
        ActiveDatabase.RootFolder.Add "Diagram", fpObjectType2DDiagram
        Set oDiagram = ActiveDatabase.RootFolder.Add("Diagram", fpObjectType2DDiagram)
    

    The Top value and the Bottom[/B] value of the AddDocObject and the AddRectangle Property should be negative:

    
        With ActiveDatabase.RootFolder.Object("doc", fpObjectTypeDocument)
            .Pages(1).AddDocObject fpObjectType2DDiagram, 0, 0, 100, -100, "diag"
            .Pages(1).AddRectangle 20, -20, 30, -30
        End With
    

    Support@weisang.com

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Du musst angemeldet sein, um auf dieses Thema antworten zu können.