Beispiele (Download)

Linienmuster

Lieber Rene, ich hoffe Dir geht es gut und Du hast nur liebe und nette Seminarteilnehmer. Bei mir ist es jetzt ein wenig ruhiger geworden, aber alles passt. Hatte gestern und vorgestern ein Visio-Seminar bei einem Kunden mit Elektronikschaltplänen. Alles soweit gut. Sie wollen aber gerne die Verkabelung mit den Drahtfarben darstellen. Nur: einige der … Continue reading Linienmuster

Daten mit Shapes verbinden

Schade eigentlich. Ist mir bislang noch nicht aufgefallen. Befindet sich ein Shape in einer Gruppe, wie beispielsweise der Luftfilter, dann ist es nicht möglich ein Datensatz aus einer verknüpften Tabelle an das Mitgliedsshape zu binden. Das bedeutet: Man darf hierfür nicht gruppieren.

Zugriff auf andere Seiten per ShapeSheet

Manchmal entdecke ich Dinge erst sehr viel später. Ich dachte, dass es nicht funktioniert, auf ein Shape zuzugreifen, das auf einem anderen Zeichenblatt liegt. Die Hilfe liefert, dass der Verweis auf das andere Shape mit =Pages[Blattname]!Shapename!Zelle erfolgt. Ein Versuch: =Pages[Zeichenblatt-2]!Sheet.1!Width scheitert. Der Grund: Man darf nicht den Namen des Zeichenblattes (hier: Zeichenblatt-2), sondern den internen … Continue reading Zugriff auf andere Seiten per ShapeSheet

Daten

Haben Sie auch zu viel Geld? Richtig – es wird immer schwieriger eine Steueroase zu finden, in der man sein Geld verstecken kann. Schnell ein Rechteck erstellt, auf einen Layer gelegt, mit einem Datenfeld versehen und die 30 Länder eintragen. Der Assistent Überprüfen / Shape-Berichte sammelt die Ländernamen ein. Zum Glück gibt es noch ein … Continue reading Daten

Servicefläche

Lustige Sache: Ein Kunde wollte bei einem technischen Gerät eine Service Fläche haben. Also füge ich in die Gruppe eine solche schraffierte Fläche ein. Natürlich soll die Fläche in der Größe variabel sein. Also wird der Gruppe ein Kontrollelement hinzugefügt, die Ecken des Rechtecks verweisen im ShapeSheet auf dieses Kontrollelement, man schränkt die Bewegung des … Continue reading Servicefläche

Automatischer (automatisierter) Start einer Datei

Hallo Herr Martin, zum Zweck: Ich glaube schon, dass es für einen Nutzer ganz praktisch ist, wenn ein Programm (sei es z.B. ein Bildbetrachtungsprogramm mit unterlegten Texten u. vieles mehr) sich direkt aus der Windowsoberfläche starten lässt – und dann direkt ins Vollbild. So sind ja nur noch die Button und die programmtechnischen Funktionen aktiv. … Continue reading Automatischer (automatisierter) Start einer Datei

Daten ändern

Sehr geehrter Herr Dr. Martin Ich habe mal wieder ein Problem: Kann man Shapes, die in einer Schablone abgelegt sind, externe Daten zuweisen ohne sie auf die Arbeitsfläche zu ziehen? Mein Problem ist folgendes: Ich habe bereits etliche Shapes gezeichnet, die in späteren Zeichnungen enthalten sein werden. Zu der Zeichnung sollen dann Berichte erstellt werden, … Continue reading Daten ändern

Alle Shapes durchlaufen

Eine rekursive Funktion zu schreiben, die alle Shapes (auch die Shapes in Gruppen) auflistet, ist nicht sehr schwierig: Private Sub BistDuGruppe(vsshape As Visio.Shape) Dim i As Long ReDim Preserve lngShapeID(UBound(lngShapeID) + 1) ‚ — vergrößere die Dimension lngShapeID(UBound(lngShapeID)) = vsshape.ID If LiegstDuAufRichtigemLayer(vsshape) = False Then For i = 1 To vsshape.Shapes.Count Call BistDuGruppe(vsshape.Shapes(i)) Next i … Continue reading Alle Shapes durchlaufen