Legende

Guten Morgen Herr Martin,
voriges Bild habe ich erzeugt. Die Datenquelle ist Verkaufsdaten.xlsx. Woher bezieht Visio die Umsatz-Summe in der Legende? Vielen Dank für ihre Hilfe.
####
Hallo Herr K.,
die Umsatzzahlen kommen aus der letzten Spalte „Umsatz“
####
Hallo Herr Martin,
ich habe eine unpräzise Frage gestellt. Deshalb ein neuer Versuch:
Woher die 22500 kommen ist klar. Aber woher und warum ist der Max-Wert bei 30000? Wenn ich diesen verändere, ändert sich auch der Wert in der Legende. Welchen Wert hat für mich diese Angabe?
####
Hallo Herr K.,
könnten Sie bitte beschreiben, was Sie machen. Ich verstehe Ihre Frage „woher und warum ist der Max-Wert bei 30000? Wenn ich diesen verändere, ändert sich auch der Wert in der Legende. Welchen Wert hat für mich diese Angabe?“ nicht.
####
Guten Tag Herr Martin,
ich gehe folgendermaßen vor:
Schritt 1: leeres Zeichenblatt, dann das Rechteck aus den Standard-Shapes
Schritt2: Verbindung mit der Excel-Tabelle Verkaufsdaten.xlsx
Schritt 3: Ich ziehe einen Datensatz auf das Rechteck –> bis hierher keine Probleme
aber jetzt:
Schritt 4: Einblenden der Legende, automatisch erscheint das Feld „Umsatz“ mit 22500
Schritt 5: Anzeigen von ShapeSheet (Entwicklertools) für das Feld Umsatz
Schritt 6: Kontrolle der 22500 –> Wird automatisch berechnet nach beiliegender Formel im Bereich Shape Data
0.75*(Prop.msvCalloutPropMax-Prop.msvCalloutPropMin)+Prop.msvCalloutPropMin (Die Werte von …min (0) und …max (30000) sind voreingestellt von Visio)
Ich kann die Werte von Hand ändern, das Ergebnis wird angepasst, aber was kann ich mit diesem Wert anfangen? Dieser hat offensichtlich keinen Bezug zu den Tabellendaten.
####
Hallo Herr K.,
danke – jetzt verstehe ich. Ich bin davon ausgegangen, dass Sie die Vorlage Pivotdiagramm verwendet hatten …
Die Antwort: es ist eine Beispielzahl, die in der Legende angezeigt wird. Der Balken weist darauf hin, dass in der Datengrafik Umsatz verwendet wird (und nicht die Menge) – ändern Sie es, erzeugen Sie die Legende erneut und Sie sehen Menge statt Umsatz.
Ändern Sie Datenbalken durch Wert als Farbe, wird dies angezeigt.
Der (Dummy)-Wert, den Sie sehen, ist ein berechneter Wert zwischen Min und Max – aber nicht der Mittelwert, sondern im oberen Viertel.
Legende ist ja nur eine Erklärung, was die Symbole bedeuten mit einem Beispiel, kein Auswertungsergebnis.
####
Hallo Herr Martin,
vielen Dank für die Unterstützung. Es ist schon merkwürdig, welche Mühe mit einer Formel sich MS macht, um einen Beispielwert anzuzeigen. Ein Festwert hätte es auch getan.
####
Hallo Herr K.,
 
ich gebe Ihnen recht: sehr viel Mühe und vielleicht verwirrend.
Andererseits: Würde Microsoft den Wert 42 auf den Balken schreiben, würden sich Anwender sicherlich wundern, warum gerade diese Zahl, wo doch der Datenbereit zwischen 0 und 0,005 liegt. Oder zwischen 100.000 und 10.000.000.
 
Liebe Grüße
 
Rene Martin
 
 
 

Export nach Word

Guten Tag, Herr Martin
Wir bekommen in Visio den Datenexport nach Word einfach nicht aktiv… Die Option unter Prozess ist und bleibt inaktiv egal was wir tun.
Haben Sie einen Tipp für uns…wir wären echt dankbar….
Hallo Herr H.,
Sie wollen Sie eine Visio-Zeichnung nach Word exportieren? Das geht nur in Visio in Microsoft 365. Frage: Ist bei Ihnen die Option Datei / Exportieren / Word aktiv?
 
Ich vermute, dass dies ein Versionsproblem ist. Das kenne ich – nach der Desinstallation „zieht“ sich das Microsoft-Anwendungsprogramm von irgendwoher die alte Office-2019-Information.
Ich hatte das Problem mal mit Excel; habe mich an die Hotline gewandt; die hat schnell und gut geholfen: hat mir Office GANZ geputzt und dann haben wir es neu installiert.
 
Schöne Grüße
 
René Martin
#####
Hallo Herr Martin
Oh man das ist ja Irre…es funktioniert nun habe nochmals alle Office Reste vom PC entfernt dann 365 neu ausgerollt…und siehe da…es geht!
Vielen Dank für Ihre Hilfe. Gern kommen wir bei Problemen auf Sie zurück..
Bis dahin gute Geschäfte und bleiben Sie Gesund !
 
 

Berichtsvorlagen

Erstaunlich. Ich suche und ich finde in Visio nicht die Vorlage für die Exceltabelle, die Visio für Berichte verwendet. Oder weiß jemand, wie man Texte in den Berichten linksbündig darstellen lassen kann?

Schutz in Visio

Eine Firma hat sehr viele eigene Shapes erstellt. Und möchte diese Shapes schützen.
Das geht nicht: Visio bietet keinerlei „sichere“ Schutzmechanismen, als Techniken, die man nicht knacken kann. Alles ist offen und einsehbar.
Wir überlegen zusammen:
Man könnte einen Verweis auf die Vorlage setzen und dort auf eine Zelle zugreifen. Wenn diese Zelle nicht existiert, soll das Shape ausgeblendet werden. Gute Idee, denke ich und probiere aus.
Das Problem: verweist ein Shape auf eine Zelle des Dokuments, wird das Shape in ein anderes Dokument kopiert, wird auch die Zelle des Dokuments mitkopiert. Damit ist diese Überprüfung obsolet.
Also wird es wohl doch beim Copyright bleiben …

Linien und Steuerelemente

Faciplan möchte Symbole für Fluchtpläne, Feuerlöscher, Defibrillatoren, … in die Raumpläne, die mit Visio gezeichnet sind, einfügen. Da nicht immer genügend Platz an der Stelle ist, an der sie platziert werden sollen, schlage ich vor mit einer knickenden Linie zu arbeiten – über Steuerelemente wird der Lauf festgelegt.
Und: über das Kontextmenü kann man sie ausblenden.
Die Lösung gefällt!

Gruppe in der Gruppe in der Gruppe …

Hallo Herr H.
ist das gemein oder einfach nur böse?
####
So begann meine Mail. Warum mein Erstaunen?
Es begann so:
Sehr geehrter Herr Martin,
 
ich stehe vor einem mittelschweren VBA- Problem und hoffe sehr, dass Sie mir hier wieder weiterhelfen können.
 
Folgendes Problem:
 
Ich habe tagtäglich mit unzähligen gruppiertes Shapes zu tun die ich per Excel Tabelle mit Adressdaten und Daten befülle.
 
Ab Spalte L2:L in der Excel Tabelle soll sich in Abhängigkeit des Textinhaltes (Ventil, Pumpe, Speicher) die Linien -Farbe des
Shapes ändern („Linecolor“) von Ventil = Grau, Pumpe = Blau und Speicher = grün. (siehe beiliegende Excel Mappe)
 
For Each shpInneresShape In shp.Shapes
If shpInneresShape.Name = „V“ Then
shpInneresShape.Text = blatt.Cells(i, 6).Value ‚Anzahl V
ElseIf shpInneresShape.Name = „P“ Then
shpInneresShape.Text = blatt.Cells(i, 7).Value ‚ ID
[…]
Ich hoffe sehr, dass Sie mir in diesem Problem weiterhelfen können.
###
Ich schaue mir das Problem an und schreibe:
Hallo Herr H.,
 
so wie Sie die Dateninformation Prop.P_ID überprüfen, können Sie auch die Linienfarbe LineColor setzen:
 
If blatt.Cells(i, 12).Value = “Ventil” then
shpInneresShape.Cells(„LineColor“).FormulaU = „=17“
ElseIf blatt.Cells(i, 12).Value = “Pumpe” then
shpInneresShape.Cells(„LineColor“).FormulaU = „=4“
ElseIf blatt.Cells(i, 12).Value = “Speicher” then
shpInneresShape.Cells(„LineColor“).FormulaU = „=3“
End If
 
Für Grau stehen Ihnen die Zahlen zwischen 14 und 20 zur Verfügung. Ich verwende gerne diese „alten“ Zahlen (sie stammen aus einer sehr alten Visio-Version) – Alternativ können Sie auch die Funktion RGB verwenden (ist aber umständlicher).
####
Hallo Herr Martin,
Vielen herzlichen Dank für Ihre schnelle Antwort 😊!!
Leider funktioniert die Farbänderung noch nicht wirklich – ich habe anbei eine Beispiel Visio Datei angefügt.
####
Hallo Herr H.,
ist das gemein oder einfach nur böse?
Im Ernst:
1.) in der Zelle L3 steht nicht „Ventil“, sondern „Ventil “ (ein Leerzeichen am Ende). Deshalb habe ich die Zeile
 
ElseIf blatt.Cells(i, 12).Value = „Ventil“ Then
 
geändert in:
 
ElseIf blatt.Cells(i, 12).Value Like „Ventil*“ Then
 
2.) Sie habe eine Gruppe in der Gruppe in der Gruppe in der Gruppe! Eine Gruppe hat keine Linie. Also habe ich alle Kinder und Enkel und Urenkel … formatiert.
Dann klappt es!
 
Liebe Grüße
 
Rene Martin
 
PS: ich habe auch noch ein Option Compared Text eingefügt, damit nicht zwischen Groß- und Kleinschreibung unterschieden wird.
 
Der Code:
[…]
If blatt.Cells(i, 12).Value Like „Ventil*“ Then
shpInneresShape.Cells(„LineColor“).FormulaU = „=17“ ‚ — grau
Call MacheInnenBunt(shpInneresShape, 17)
ElseIf blatt.Cells(i, 12).Value Like „Pumpe*“ Then
shpInneresShape.Cells(„LineColor“).FormulaU = „=4“ ‚ — blau
Call MacheInnenBunt(shpInneresShape, 4)
ElseIf blatt.Cells(i, 12).Value Like „Speicher*“ Then
shpInneresShape.Cells(„LineColor“).FormulaU = „=3“ ‚ — grün
Call MacheInnenBunt(shpInneresShape, 3)
End If
 
[…]
Sub MacheInnenBunt(vsShape As Shape, Farbe As Integer)
Dim i As Integer
For i = 1 To vsShape.Shapes.Count
vsShape.Shapes(i).Cells(„LineColor“).FormulaU = „=“ & CStr(Farbe)
If vsShape.Shapes(i).Shapes.Count > 0 Then
Call MacheInnenBunt(vsShape.Shapes(i), Farbe)
End If
Next
End Sub
 
 
 

Organigramm-Vorlagen

Guten Tag Herr Martin,
Jetzt habe ich noch etwas: Wenn ich ein Organigramm aus einer Excel-Datei mit dem Assistent importieren will, zeigt es mir immer die Gürtel-Vorlage an. Wie kann ich das steuern, dass es meine eigene Vorlage visualisiert?
freundliche Grüsse
####
Hallo Herr A.,
Sie meinen sicherlich ein Organigramm in der Visio-App zu erstellen nicht auf Excel über den Visio-Data-Assistenten, oder?
Die Antwort in Visio lautet: öffnen Sie ihre Vorlage und die richtigen Schablonen. Uns starten aus dieser Vorlage über „importieren“ den Assistenten. So klappt es.

Pixelgrafik in Vektorgrafik in Visio konvertieren

Lieber Rene,
ich hoffe es geht Dir gut. Ich habe eine (für Dich bestimmt) einfache Frage:
Wie kann ich die Grafik im Anhang in ein Visio Shape umwandeln? Ich weiß, ein Shape ist es schon, sobald ich es in Visio eingefügt habe. Ich möchte die Figur aber einfärben oder schraffieren können, das geht aktuell nicht.
 
Steht dazu etwas in Deinem Handbuch „Visio 2013 / 2016 anpassen – Das Handbuch für Entwickler“ drin?
 
Danke, Gunnar
####
Hallo Gunnar,
die Frage ist schnell beantwortet: geht nicht in Visio!
Ich mache für solche Zwecke mein CorelDraw auf – dort gibt es eine Trace-Funktion, die Bitmaps in Vektoren verwandelt:
Allerdings:
wenn ich dann das Corel-Objekt nach Visio kopiere passiere merkwürdige Dinge:
Mehr Erfolg hat man, wenn man die CorelDraw-Zeichnung als SVG speichert und in Visio öffnet:
Tipp: ich würde sie (in Visio) nachbauen oder aus den Piktogrammen holen (hast du Microsoft 365?) – der Aufwand lohnt nicht!
Liebe Grüße
Rene
PS: ich hatte vor Kurzem das Problem mit Schriften: Shape wird größer gezogen; sehr viele Texte – sie sollten mitskalieren. Ich wollte nicht im Shapesheet für jeden Text einen Bezug zur Shapegröße herstellen – also habe ich CorelDraw die Schriften in Vektoren umgewandelt. DAS ging sehr gut!
####
super – vielen Dank!
Ich habe kein Office 365. Da hätte ich dann Zugriff auf eine große Datenbank mit Piktogrammen?
schau mal unter „Falls Sie nicht über die aktuellste PowerPoint-Version verfügen“
in:
https://www.npridik.de/icons-praesentationen-schaubilder-powerpoint/
Liebe Grüße
Rene
Tolle Hinweise – schau ich mir genauer an. Der Tip mit dem 36 EUR Jahresabo von Noun Projects hört sich auch interessant an.
Danke, Gunnar
 

Schiebetüren

Hallo Herr B.,
 
Sie haben gefragt, wo man die Schiebetüren in Visio findet. Die Antwort: „In der Schablone „Wände, Rohbau und Strukturen“
 
schöne Grüße
 
René Martin

Rahmen

Hallo Rene Martin,
 
könnte ich auch so einen Blattrahmen (A1, B1, usw) Visio, von dir bekommen?
Ist schon ein älterer Eintrag von dir bezüglich Visio.
 
Schönen Dank im Voraus
Schöne Grüße
Th. Z.
#####
Hallo Herr Z.,
 
die Schablone haben Sie auch in Visio: unter Visio Extras / Titelblöcke finden Sie die Shapes für die Rahmen
 
schöne Grüße
 
Rene Martin