Beispiel zum Export von Visio-Daten

Im Projekt, das in diesem Abschnitt beschrieben wird, soll in Visio ein Auswahl-Dialogfeld (Abbildung 17.4) erstellt werden, mit dem der Benutzer alle Shape-Namen in eine Excel-Tabelle eintragen lassen kann. Beim Öffnen des Dialogfelds werden alle vorhandenen Layer in einem Dropdownfeld aufgeführt. Das Dialogfeld besitzt den folgenden Initialisierungscode:

Private Sub UserForm_Initialize()
   Dim layLayer As Layer
   For Each layLayer In ActivePage.Layers
      cmbLayer.AddItem layLayer.Name
   Next
   cmbLayer.Text = cmbLayer.List(0)
End Sub

Sie finden diese Datei unter 17_VBADollmannstr.vsdm und dort unter ADD-INS/Export nach Excel.

Klickt der Benutzer auf OK, wird Excel geöffnet und alle Shape-Namen in eine neue Tabelle eingetragen. ...

Get Microsoft Visio 2013 - Das Handbuch now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial