shp.OLEObject.Object.Value?

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