Übersetzen

Hallo Herr Martin,
Falls wir die Vorlage für die Westschweiz auf Französisch übersetzen müssten, ginge das nur manuell (Shape um Shape)?
###
Wenn Sie Mehrsprachigkeit haben möchten können Sie Teile über die Daten und die Layer erzeugen. Ich fürchte aber, Sie sind schneller, wenn Sie die Vorlage „manuell übersetzen“. Werfen Sie mal einen Blick auf meine Dateien „Mehrsprachigkeit“ – Sie können die Sprache über das Kontextmenü des Zeichenblattes umschalten.

Container

Hallo Herr Martin,
Wie lässt sich das Aussehen mit den Rechtecken innerhalb von Rechtecken erreichen?
o Der Behälter sollte sich den Inhalten anpassen, bzw. als Ganzes verschiebbar sein. Wäre an sich der Container. Aber:
o Container mit angepasstem Look? Falls ja, findet sich das in Ihren Kursen?
####
Ich finde Container nicht sehr komfortabel (wie Sie richtig bemerken) – ich würde so etwas „per Hand zeichnen“ oder über das Shapesheet lösen. Was wollen Sie genau? Werfen Sie einmal einen Blick in die Shapes „Spalte 5 Zeilen“ und „Spalte 15 Zeilen“ aus der Schablone „Titelblöcke“ aus „Visio-Extra“:
Oder auch das Shape „Legende“ aus „Netzwerk und Peripheriegeräte“. Ich beschreibe es auf:
https://www.visio-training.de/das-legendenshape/
Wenn Sie eine Gruppe verwenden und ihr die Verhaltenseinstellung „Abgelegte Shapes annehmen“ zuweisen und den einzelnen Shapes die Einstellung „Shape beim Ablegen der Gruppe hinzufügen“ aktivieren, sind Sie flexibler als mit Containern:

Verknüpfung auf andere Seiten

Hallo Norbert,
 
und so geht’s – so kann man in Visio auf ein anderen Blatt verweisen, sich den aktuellen Blattnamen anzeigen lassen.
 
du brauchst die Registerkarte „Entwicklertools“ im Menüband
 
Jede Seite hat einen „Name“, den du siehst (bei dir: 1, 2 und 3) und einen internen NameU. Man bekommt ihn per VBA heraus. Das Makro
 
Sub SeitenName()
MsgBox ActivePage.NameU
End Sub
 
liefert die drei internen Namen
 
Gruppen_Div2 // Lüftung_WRG // Lüftung_Roti
 
Erstelle ein Shape, mit dem du auf eine Seite verknüpfen willst.
Wechsle ins ShapeSheet (rechte Maustaste aufs Shape).
Dort erstellst du übers Kontextmenü einen Abschnitt userdefined Cell:
 
Ich nenne die Zelle beispielsweise „NächstesBlatt“. Sie enthält die Formel:
=Pages[Lüftung_WRG]!ThePage!PAGENAME()
 
Dabei ist Lüftung_WRG natürlich der interne Name des Blattes, auf das verwiesen wird.
 
Diese userdefined cell wird in Visio im Shape über das Kontextmenü als Feld eingefügt (Einfügen / Feld):

Verweis auf Seiten

Hallo, ich habe schon viele Tipps von ihnen gelesen.
 
Mittlerweile arbeite ich sehr gerne mit Visio, jedoch habe ich noch ein Problem, das oft sehr viel Nacharbeit erfordert.
 
Oft habe ich Projekte mit 20-30 Visio-Seiten….
Beispiel:
Auf Seite 1 habe ich nicht alles Platz, jedoch zeichne ich erst auf Seite 4 weiter, da Seite 2 und 3 für was anderes vorgesehen ist.
Damit ich nicht ewig Suchen muss, erstelle ich ein Hinweis mit einem Pfeil für seite 4…Somit weiß ich, es geht auf Seite 4 weiter….Umgekehrt auf Seite 4…Hier mach ich einen Pfeil mit Textfeld für Seite 1…..
 
Jetzt das Problem. So etwas kommt sehr häufig vor. Wenn ich jetzt einfach bei Seite 2 eine weitere Seite einfüge, ändert sich die Nummerierung und somit ist Seite 4 dann die Seite 5 und somit müsste ich den Verweiss auf Seite 1 von 4 auf 5 ändern….
Kann man das irgendwie automatisieren?
 
Danke im vor raus.
LG Norbert
###
Hallo Norbert,
 
sorry, jetzt ist deine Mail nach unten gerutscht. Ich hatte zwar schon einmal probiert, aber DIESER Weg hat nicht funktioniert:
 
Mein erster Gedanke war: ich erstelle zwei Shapes, die sich aufeinander beziehen und von denen jeder „sein“ Zeichenblatt kennt und das Zeichenblatt des anderen Shapes:
Problem: Wenn ich ein Shape auf ein anderes Blatt kopiere, dann verweist das zweite Shape ja immer noch auf das ursprüngliche und nicht auf das neue.
Wenn ich ein Shape ausschneide (weil ich es einfügen will), ist der Bezug weg.
Erstaunlicherweise: wenn ich es mit der Maus verschiebe (das geht), dann wird der Bezug nicht aktualisiert …

Und was macht Visio?
 
Wenn ich das Shape „Off-Page-Referenz“ auf das Blatt ziehe, wird Bezug auf das Blatt genommen.
Im ShapeSheet finde ich den Hyperlink gesetzt auf beispielsweise:
 
=Pages[Page-2]!ThePage!PAGENAME()
 
Wenn ich nun eine benutzerdefinierte Zelle erzeuge, die Formel dort hinein kopiere, die Zeile über Einfügen / Feld einfüge, dann wird immer der aktuelle Blattname angezeigt:
 

Shapes konvertieren

Ein Konvertierprojekt – Teil XI
Kaum bastelt man drei Monate an den Visio-Shapes rum – schon sind sie fertig …
Im Ernst: es war schon ein Stück Arbeit die Zeichnungen, die in CorelDraw angefertigt wurden nach Visio zu konvertieren. Einfach nur Copy & Paste ist nicht.
Aber mit etwas Fleiß, Ausprobieren, Tüfteln, Dinge verwerfen und Kundenwünsche umsetzen war dann das Projekt fertig …

Shapes konvertieren

Ein Konvertierprojekt – Teil XI
Und schließlich wollte der Auftraggeber noch, das das Logo nicht gelöscht werden kann. Okay- einen 100%igen Schutz gibt es nicht. Aber man kann ihn gut verstecken: Das Logo wird markiert und im ShapeSheet in der Gruppe „Protection“ in der Zelle LockDelete die Formel
=GUARD(1)
eingetragen.
Dieser Schutz kann nur im ShapeSheet entfernt werden.
Und: natürlich liegt auf der Gruppe die Verhaltenseinstellung: „Auswahl: nur Gruppe“.

Shapes konvertieren

Ein Konvertierprojekt – Teil VI
Die Shapes der Schablone „Gestellmontierte Geräte“ verfügen im Kontextmenü über den Eintrag „U-Größen anzeigen/U-Größen ausblenden“. Es wäre doch ganz hübsch, wenn diese vielen Switches auch solche Einträge hätten, die den Namen anzeigen würden.
Kein Problem: im Abschnitt „userdefined cells“ wird eine Zeile „Shapename“ eingefügt. Sie erhält die gleiche Formel wie die Quickinfos/Comments:
=INDEX(0,INDEX(0,MASTERNAME(),“:“),“.“)
Im Shape wird eine Feld eingefügt, das den Text anzeigt. Der Text wird unter das Shape platziert.
Eine Zeile des Abschnitts Action erhält folgenden Menüeintrag:
=IF(Actions.Row_3.Action,“Shape Text verbergen“,“Shape Text zeigen“)
und folgende Action:
=NOT(„Actions.Action[3]“)
In der Zelle Hidetext (Abschnitt Miscellaneous) wird darauf verwiesen:
=NOT(Actions.Row_3.Action)
Und fertig ist der zweite Eintrag des Kontextmenüs.

Shapes konvertieren

Ein Konvertierprojekt – Teil V
Mit Hilfe des Shapes LCD-Monitor habe ich das neue Shape erstellt. Etwas irritiert und erstaunt bin ich, weil das Quickinfo als Name meldet:
LCD-Monitor
Ein Blicks ins ShapeSheet – in die Zelle Comment des Abschnitts „Miscellaneous“ gibt Auskunft. Dort findet sich die Formel:
=INDEX(0,INDEX(0,MASTERNAME(),“:“),“.“)
Das Heißt: der Name des Mastershapes wird angezeigt. Sollte durch Veränderung das Mastershape nicht
LCD-Monitor
sondern
LCD-Monitor.42
wird der Text vor dem Punkt herausgelöst.
Also: Shape in eine Schablone ziehen, umbenennen und das Mastershape aus der Schablone auf das Zeichenblatt zurückziehen – fertig!
Eine clevere Formel aus dem Hause Visio!

Feste Textposition auf Pfeilen

Hallo Rene,
nun bräuchte ich nochmal Visio Unterstützung:
 
1. In angehängter Datei habe ich Verbindungslinien mit Text versehen. Per Shape Sheet habe ich die Texte fixiert.
a. Ich möchte dass die linkbündigen immer einen Abstand von 5 mm zum Startpunkt haben, die rechtsbündigen denselben Abstand zum Endpunkt
b. Die Höhe bei beiden soll auch fix sein
c. Wenn ich die Verbinder länger-, kürzer- oder um Ecken ziehe soll die Position sich nicht verändern
d. auf der rechten Seite des Blocks ist mir das mit den linksbündigen Verbinder gelungen. Auf der linken Seite aber nicht. Sobald Du daran ziehst ändern sich die Positionen
###
Hallo Gunnar,
 
bei den „rechten“ Verbindern ist das kein Problem – hier muss die Position absolut als Zahl gesetzt werden.
 
bei den linken Verbindern, die nach rechts zeigen muss ich vom Ende ausgehen. Das heißt:
ich setze die Textwidth auf eine feste zahl, bspw. 80 mm. Den local Pin setze ich auch auf die rechte Seite, also:
TxtLocPinX: 80mm
Den TxtPinX rechne ich vom rechten Ende weg, also:
EndX
Da der Verbinder nicht durch zwei x- und zwei y-Punkte definiert ist, sondern eigentlich durch ein umschriebenes Rechteck (Box) mit einem Pin mit x- und y-Koordinaten, benötige ich hier auch den Anfangspunkt, also:
=GUARD(EndX-BeginX-5 mm)
Das GUARD ist nötig, weil Visio sonst die Formel überschreibt.
Die Konstante muss/kann man ausprobieren.
Allerdings: ich habe keine Ahnung, warum Visio bei BeginY = EndY anders rechnet. Ich habe es mit einem IF abgefangen. Nicht perfekt … Vielleicht hängt der Rechenfehler mit der Rundung der Linie zusammen?
TxtPinX: =GUARD(EndX-BeginX-5 mm)
TxtPinY: =GUARD(IF(BeginY=EndY,2.4 mm,IF(BeginY<EndY,2*(EndY-BeginY)-ABS(EndY-BeginY),EndY-BeginY))+3.5 mm)
Anbei die Lösung … Hübsche Knobelaufgabe!

Großbuchstaben

Hallo Rene,
Gibt es eine Möglichkeit den Text im Feld DESCRIPTION oder TITLE (da steht jetzt „Tankstelle“) immer in Großbuchstaben anzuzeigen, auch wenn die Shape Data klein geschrieben sind?
####
Mit UPPER kann man Buchstaben in Großbuchstaben konvertieren