---

Hallo,

ich habe eine Zeichnungsableitungsvorlage, die durch ein Macro kopiert wird und auf welcher dann die Referenz ersetzt wird.
Nun versuche ich es seit Stunden, die Ansichtseinstellung von "Default" auf "Ansicht1" um zu stellen.
Ich komme aber irgendwie nicht an die Einstellung heran.

Vielleicht kann mir jemand den Fehler in meinem Code beheben, oder mir irgendwie auf die Sprünge helfen.

Code:

---

Set osheet = oDrawdoc.activesheet
    Dim oDesview As DesignViewRepresentation
    Dim oView As DrawingView
    Set oView = osheet.DrawingViews.Item(1)
    Set oDesview = oView.SetDesignViewRepresentation.Item("Ansicht1", False)

---

Bei der letzten Zeile gibt er immer die Fehlermeldung:

Method 'SetDesignViewRepresentation' of object 'DrawingView' failed

Was mach ich denn falsch?

Gruß Chris

Ich habe mittlerweile des Rätsels Lösung gefunden 

Man sollte das ganze erst nach aktualisieren des Dokuments einfügen, dann klappt das ganze reibungslos 

[Diese Nachricht wurde von Chris 31 am 23. Jun. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ungetestet...

Code:

---

Call osheet.DrawingViews.Item(1).SetDesignViewRepresentation("Ansicht1")

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

genau so sieht es gerade bei mir aus. Nur eben an der richtigen Stelle eingefügt

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Passt

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP