shp.OLEObject.Object.Value?
R.Przybilla
die .Value-Eigenschaft, will der nicht übernehmen, .Enabled geht jedoch.
Weiß jemand Rat?
Danke!
Gruß Ralf
Private Sub Workbook_Open()
Dim DeltaBook As Workbook
Dim shp As Shape
Set DeltaBook = ActiveWorkbook
With DeltaBook
If InStr(1, ActiveWorkbook.Name, "delta", 1) > 0 Then
For Each shp In .Worksheets("Deckblatt").Shapes
shp.OLEFormat.Object.Enabled = False
Next
Else
For Each shp In .Worksheets("Deckblatt").Shapes
shp.OLEFormat.Object.Enabled = True
On Error Resume Next
shp.OLEObject.Object.Value = False 'geht nicht
shp.OLEformat.Object.Value = False 'geht auch nicht
Next
End If
End With
End Sub
Anzeige