Erkennen einer Powerpoint-Präsentation als OLEObj
13.10.2016 12:52:45
Marcel
ich habe folgendes Problem:
In meinem Worksheet sind mehrere verschiedene Steuerelemente (u.a. OptionButtons und CommandButtons). Es handelt sich dabei um eine Umfrage. Klickt der Befragte auf den "Senden"-Button, werden die OptionButtons ausgewertet und in Tabelle 4 geschrieben.
Siehe dazu unten stehender Code.
Es werden dabei alle OLE-Objekte der Tabelle1 durchlaufen und - falls es sich dabei um einen OptionButton handelt (TypeName(obj.object) - der Name dieses Buttons in Tabelle4 geschrieben. Der Schreibzugriff erfolgt spaltenweise, also in einer Zeile.
For Each objX In Tabelle1.OLEObjects
'Deklarationen, Code [...]
If TypeName(objX.object) = "OptionButton" Then
'Test to see if the optionbutton is true
If objX.object.Value = True Then
Tabelle4.Cells(x, y).Value = objX.name
y = y + 1
counter = counter + 1
End If
End If
Next
Der Code funktioniert einwandfrei.
Allerdings bette ich auch eine PowerPoint-Präsentation in das Excel-Sheet ein. Dann funktioniert der Code nicht mehr - Es erscheint Laufzeitfehler 1004: Die Object-Eigenschaft des OLEObject-Objektes kann nicht zugeordnet werden.
Habt ihr dafür eine Lösung? Ich dachte sinngemäß an "if Type = PowerPointPräsentation then Next"
VG