Selektion nach bestimmten Eigenschaften

15/08/2008 - 16:44 von eLiz | Report spam
Hallo Newsgroup,

ich möchte in einen Loop durch alle Seiten jeweils ein bestimmtes Shape
auswàhlen (selektieren) und bestimmte Eigenschaften veràndern, das durch alle
Seiten eben.
Der Loop an sich ist nicht das Problem, sonder die Selektion:

PosShapeX und Y sind als String definiert und werden schon früher übre die
Funktion: PosShapeX =
Application.ActiveWindow.Selection.Item(1).Cells("PinX").ResultStr(70)
ausgelesen. Allerdings liefert er mir immer den Fehler "Unzulàssiger Typ".

Das ist der Code

If Application.ActiveWindow.Shape.Cells("PinX").ResultStr(70) Is PosShapeX
And Application.ActiveWindow.Shape.Cells("PinX").ResultStr(70) Is PosShapeY
And Application.ActiveWindow.Shape.Master.Name Is SelMasterName Then

MsgBox "Ein Shape gefunden"

Else

MsgBox "kein Shape gefunden"

End If

Ich komm überhaupt nicht weiter? Kann mir jemande helfen wo der Fehler ist?
Vielen Dank und Gruß
eLiz
 

Lesen sie die antworten

#1 Senaj Lelic [DE MVP Visio]
18/08/2008 - 13:46 | Warnen spam
Liz,

es ist höchst gefàhrlich mit AactiveWindow zu arbeiten. Hole dir eine
saubere Referenz als Variable vom Typ VIsio.WIndow auf das gewünschte
Fenster. ICh vermute, dass aus irgendeinem Grund ein anderes FEnster
selektiert wird (vorsicht auch eine SChablone könnte das sein) und dann
schlagen die Aufrufe alle fehl.

Senaj Lelic
DE MVP Visio

"eLiz" schrieb im Newsbeitrag
news:
Hallo Newsgroup,

ich möchte in einen Loop durch alle Seiten jeweils ein bestimmtes Shape
auswàhlen (selektieren) und bestimmte Eigenschaften veràndern, das durch
alle
Seiten eben.
Der Loop an sich ist nicht das Problem, sonder die Selektion:

PosShapeX und Y sind als String definiert und werden schon früher übre die
Funktion: PosShapeX > Application.ActiveWindow.Selection.Item(1).Cells("PinX").ResultStr(70)
ausgelesen. Allerdings liefert er mir immer den Fehler "Unzulàssiger Typ".

Das ist der Code

If Application.ActiveWindow.Shape.Cells("PinX").ResultStr(70) Is PosShapeX
And Application.ActiveWindow.Shape.Cells("PinX").ResultStr(70) Is
PosShapeY
And Application.ActiveWindow.Shape.Master.Name Is SelMasterName Then

MsgBox "Ein Shape gefunden"

Else

MsgBox "kein Shape gefunden"

End If

Ich komm überhaupt nicht weiter? Kann mir jemande helfen wo der Fehler
ist?
Vielen Dank und Gruß
eLiz

Ähnliche fragen