---

Hallo zusammen,

mir gelingt es leider nicht den Massstab einer Ansicht zu setzten.

eigentlich sollte mit DrawingView.Scale das möglich sein.
Wenn ich aber per set Drawing.View.Scale=0.1 den Wert zu setzten versuche, kommt direkt eine Fehlermeldung.

Kann mir da jemand einen Tip geben ?

Vielen Dank !

Gruss Pelikan

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

---

Hallo

Scale ist ein reserviertes Wort in VB/A. Es muß daher in eckige Klammer gesetzt werden. Hier mal ein Beispiel, das die erste Ansicht auf 1:10 setzt.

Code:

---

Private Sub Scal_change()

Dim oDraw As DrawingDocument
Set oDraw = ThisApplication.ActiveDocument

Dim oView As DrawingView
Set oView = oDraw.ActiveSheet.DrawingViews.Item(1)

Dim oScale As Double

oView.[Scale] = 0.1

oDraw.Update

End Sub

---

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

[Diese Nachricht wurde von rkauskh am 21. Sep. 2009 editiert.]

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

---

Danke für den Tip !

Gruss Pelikan

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