Hallo Dr. Visio,
ist es möglich aus einer Excel-Tabelle heraus ein Zeichenblatt mit Netzwerk-Shapes zu füllen (z.B.: 1xFirewall, 5x Switch, 4xServer, 10xWorkstations, 2xEthernet, 2xDrucker, etc.), die dann auf dem Zeichenblatt im Raster angeordnet werden?
Hallo Herr Mosbach,
Per VBA funktioniert das. Man kann Shapes aus der Schablone ziehen:
Beispielsweise so – für das Shape „Entscheidung“ aus der Schablone „Flussdiagramm“:
Sub Shape_Aus_Schablone01()
Dim vsDokument As Document
Dim vsMaster As Master
Set vsDokument = _
Documents(„BASFLO_M.vssx“)
Set vsMaster = vsDokument.Masters(„Entscheidung“)
ActivePage.Drop vsMaster, 3, 4
End Sub
schöne Grüße
Rene Martin
Hallo Dr. Visio,
ist es möglich aus einer Excel-Tabelle heraus ein Zeichenblatt mit Netzwerk-Shapes zu füllen (z.B.: 1xFirewall, 5x Switch, 4xServer, 10xWorkstations, 2xEthernet, 2xDrucker, etc.), die dann auf dem Zeichenblatt im Raster angeordnet werden?
Hallo Herr Mosbach,
Per VBA funktioniert das. Man kann Shapes aus der Schablone ziehen:
Beispielsweise so – für das Shape „Entscheidung“ aus der Schablone „Flussdiagramm“:
Sub Shape_Aus_Schablone01()
Dim vsDokument As Document
Dim vsMaster As Master
Set vsDokument = _
Documents(„BASFLO_M.vssx“)
Set vsMaster = vsDokument.Masters(„Entscheidung“)
ActivePage.Drop vsMaster, 3, 4
End Sub
schöne Grüße
Rene Martin