Thema Datum  Von Nutzer Rating
Antwort
Rot Verbinder in Visio per VBA ändern
 11.04.2017 16:26:49 Dino
NotSolved

Ansicht des Beitrags:
Von:
Dino		 Datum:
11.04.2017 16:26:49		 Views:
1039		 Rating:
     
Antwort:
  Ja
Thema:
Verbinder in Visio per VBA ändern

Hallo,

ich habe in Visio verschiedene Shapes, die bisher mit Verbindern (ohne Pfeilenden) verbunden sind. Jetzt möchte ich gerne per VBA allen Verbindern ein Pfeilende geben.

Ich habe es bisher so versucht:

Sub Chancearrows ()

Dim j As Integer

    j = Application.ActiveWindow.Page.Shapes.Count

    Do
        Application.ActiveWindow.Page.Shapes.ItemFromID(j).CellsSRC(visSectionObject, visRowLine, visLineEndArrow).FormulaU = "13"
         j = j - 1
    Loop Until j = 1

End Sub

Leider funktioniert das nicht, da ich den Fehler "ungültiger Blatt Kennziffer" erhalte.

Ich weiß gleichzeitig auch nicht genau, ob Shapes.Count überhaupt der richtige Befehl ist, oder ob es einen Befehl gibt, mit dem ich nur die Verbinder zähle.

 

Oder habt ihr andere Ideen?

 

Vielen Dank schon einmal im Voraus! Ihr seid immer eine super Hilfe :)

 

LG Dino

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Verbinder in Visio per VBA ändern
 11.04.2017 16:26:49 Dino
NotSolved