Line.visible
Matthias
folgender Code funktioniert nicht mehr, sobald ich das Workbook frei gebe:
Es erscheint der Fehler: "Die Methode 'Visible' für das Objekt 'LineFormat' ist fehlgeschlagen"
Ist die Datei nicht frei gegeben, funktioniert es einwandfrei.
Private Sub CommandButton1_Click()
If Range("B2").Value = 0 Then Range("B2").Value = 1: _
ActiveSheet.Shapes("Line 50").Line.Visible = msoTrue: _
ActiveSheet.Shapes("Group 52").Line.Visible = msoFalse _
Else: Range("B2").Value = 0: _
ActiveSheet.Shapes("Line 50").Line.Visible = msoFalse: _
ActiveSheet.Shapes("Group 52").Line.Visible = msoTrue
End Sub