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.
<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?