Überprüfung eines bestimmten Shapes
29.09.2003 15:29:21
Michael Rapp
wie kann ich überprüfen, ob ein Bild mit einem von mir vorher vergebenen Namen vorhanden ist. Nur dann funktioniert der folgende Befehl (Start des Selektionsstiftes aus der Gafikleiste). Hier mein umständlicher Code, wo ich das Problem mit einer Fehlermeldung umschiffe?
Danke für Eure Hilfe
Michael
Sub M_StartWhiteOut()
'Makro erstellt 28.9.2003
'startet den Selektionsstift aus der Grafikleiste
Dim shpPlan As Shape
Dim strMsg1 As String
Dim strMsg2 As String
On Error Resume Next
strMsg1 = Sheet27.Range("AW318")
strMsg2 = Sheet27.Range("AW319")
Set shpPlan = Sheet16.Shapes("FS_Plan")
If Err.Number = 0 Then GoTo WhiteOut 'prüfen, ob ein Plan vorhanden ist
MsgBox strMsg1 & Chr(13) & strMsg2, vbOKOnly 'wenn nicht vorhanden, Fehlermeldung und Abbruch
Sheet16.Range("CM28").Select
Exit Sub
WhiteOut:
shpPlan.Select Plan vorhanden, muß gewählt sein
Application.CommandBars("Picture").FindControl(, 2827, , , True).Execute ' Start der Siftfunktion
End Sub