Diagram name

SupportCommunity Automation and VBA Diagram name

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

    Hi,

    I would like to create a variable into the VBA writter tool which can takes the name of the active diagram seleced.

    For exemple, I have 4 curves plots on a diagram. This diagram, instead of the classic “2D Diagram” name, I choose to rename this by “Export00”.
    How can I creat a variable which will be the name of this diagram called “Export00”?

    Thank you in advance,

    Zelka.

    #8554
    Anonym
    Gast

    Hi,

    I would like to create a variable into the VBA writter tool which can takes the name of the active diagram seleced.

    For exemple, I have 4 curves plots on a diagram. This diagram, instead of the classic “2D Diagram” name, I choose to rename this by “Export00”.
    How can I creat a variable which will be the name of this diagram called “Export00”?

    Thank you in advance,

    Zelka.

    #9414
    Bernhard KantzBernhard Kantz
    Moderator

    To access the database currently working on, use the global ActiveDatabase property. You may also use ThisDatabase to access the project database containing the VBA code.
    The Database object has an ActiveObject property to use the FpObject which has the focus. There are also properties Selection and SelectedObject to get the object(s) chosen in the object list.
    The name of an object can be obtained by the property Name, the full path (including extension) with Fullname.

    
    Dim oFpObj As FpObject
    Set oFpObj = ActiveDatabase.ActiveObject
        
    Select Case oFpObj.ObjectType
        Case fpObjectType2DDiagram
            MsgBox "Selected 2D-Diagram: " & oFpObj.Name & vbCrLf _
                & "(Full path name: " & oFpObj.FullName & ")"
        Case fpObjectType3DDiagram
            MsgBox "Selected 3D-Diagram: " & oFpObj.Name & vbCrLf _
                & "(Full path name: " & oFpObj.FullName & ")"
        Case Else
            MsgBox "Selected Object: " & oFpObj.Name & vbCrLf _
                & "(Full path name: " & oFpObj.FullName & ")"
    End Select
    
Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Du musst angemeldet sein, um auf dieses Thema antworten zu können.