Ich habe ein Makro geschrieben, um einzelne Shapes, die dem gleichen Instrumenttyp (hier: PI) angehören, markieren zu können. Jetzt wird leider immer folgender Fehler ausgegeben: "Fehler beim Kompilieren: Argument ist nicht optional"
Das Makro sieht folgendermaßen aus.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | <code>Sub Test()
Dim shp As Visio.Shape
Dim sel As Visio.Selection
Set sel = ActiveWindow.Selection
sel.DeselectAll
For Each shp In ActivePage.Shapes
If shp.CellExists("Prop.SubType", False) Then
If shp.Cells("Prop.SubType").ResultStr(0) = "PI" Then
sel.Select shp
End If
End If
Next shp
End Sub
</code>
|
Die ausschlaggebende Zeile ist: sel.Select shp
Hat jemand eine Idee dazu oder vielleicht sogar einen Lösungsvorschlag für mich?