Hallo,
wie kann ich prüfen, ob ein Objekt vorhanden ist? (Bezieht sich allerdings auf VBA für Word)
Beispiel:
ActiveDocument.Shapes(„bogen“).Select
bleibt mit Fehler stehen, wenn „bogen“ nicht vorhanden ist. Wie kann ich vorher prüfen, ob dieser Shape vorhanden ist?
Danke im voraus
Günter
hallo
entweder in einer for each schlaufe
Dim x As Shape
For Each x In ActiveDocument.Shapes
If x.Name = „bogen“ Then
x.Select
End If
Next
oder mittels einer funktion
sub main
dim x as shape
set x = getshape(„bogen“)
if not x is nothing then
x.select
end if
end sub
Private Function getshape(ByVal strShapeName As String) As Shape
On Error GoTo errHandler:
Set getshape = ActiveDocument.Shapes(strShapeName)
Exit Function
errHandler:
Set getshape = Nothing
End Function
(aus dem kopf getippt, könnte noch der eine oder andere kleine bug haben)
gruss, giuseppe
Hallo,
wie kann ich
prüfen, ob ein Objekt vorhanden ist? (Bezieht
sich allerdings auf VBA für Word)
Beispiel:
ActiveDocument.Shapes(„bogen“).Selectbleibt mit Fehler stehen, wenn „bogen“ nicht vorhanden ist.
Wie kann ich vorher prüfen, ob dieser Shape vorhanden ist?Danke im voraus
Günter
Danke, Supertipp, habe for each genommen.
Gruß
Günter