Forum FlexPro – Discuss your topic!

Diagram name

Dieses Thema hat 2 Antworten sowie 2 Teilnehmer und wurde zuletzt vor vor 9 Jahren, 1 Monat von Anonym aktualisiert.

Viewing 3 posts - 1 through 3 (of 3 total)

Autor

Beiträge
November 19, 2015 um 11:27 am Uhr #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.

November 19, 2015 um 11:27 am Uhr #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.

November 23, 2015 um 9:06 am Uhr #9414
Bernhard Kantz
Teilnehmer
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
```
Autor

Beiträge

Viewing 3 posts - 1 through 3 (of 3 total)

Du musst angemeldet sein, um auf dieses Thema antworten zu können.