---

Browser.jpg Browser2.jpg

Hallo,
habe schon den nächsten Knackpunkt.
Kann man Arbeitsachsen in einer idw mit VBA einschließen?

Funktionieren soll das so.
Ansicht in der Zeichnung markieren, das erste Teil oder BG suchen und die Achsen daraus einschließen.

Nur wie, weiß ich nicht.

------------------

          Gruß
          Hans-Peter    

  

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

---

Hallo

Einschließen der X-Achse geht so:

Code:

---

Private Sub include_XAxis()

Dim oAktiv As Object
Set oAktiv = ThisApplication.ActiveDocument.ActiveSheet.DrawingViews.Item(1)

Dim xAxis As WorkAxis
Set xAxis=ThisApplication.ActiveDocument.ReferencedDocuments.Item(1).ComponentDefinitions.Item(1).WorkAxes.Item(1)
   
Call oAktiv.SetIncludeStatus(xAxis, True)

End Sub

---

Haken an der Sache, es wird hier immer mit der ersten Ansicht auf dem aktiven Blatt gearbeitet.

------------------
MfG
RK

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

---

Danke für die promte Antwort.
Leider funktioniert es im 11er nicht, werde es aber am Abend mit 2008 probieren.

------------------

          Gruß
          Hans-Peter    

  

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

---

Hi

Sorry, einen 11er habe ich leider nicht, sondern nur einen 2008er. Ich hatte gehofft, es gab den Punkt in der API schon im 11er. 

------------------
MfG
RK

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