O'Reilly logo

Microsoft Visio 2013 - Das Handbuch by René Martin

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

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. ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required