Hallo,
ich möchte dem Eigenschaftenfenster selbst die Objekte
zuweisen, die es anzeigen bzw. bearbeiten soll.
Ziel der Sache ist, daß ich auch dann Eigenschaften von
Shapes verändern kann, wenn diese in einer Gruppe
zusammengefaßt sind, ohne daß diese aufgelöst werden muß.
Ich muß also wissen, wie ich an das Eingenschaftenfenster
komme. Weiß jemand wie die Instanz heißt?
Bin für jede Idee dankbar…
hallo chefhunter,
ich versteh ned ganz was du meinst…
„ansicht“-„eigenschaftsfenster“
ist es nicht??
gruß
rasta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Rasta,
danke für’s Nachfragen,
sorry, ich vergaß zu erwähnen, daß es sich bei den Schapes teilweise um ActiveX-Steuerelemente handelt. Wenn ich ein solches in der Präsenation plazieren, dann kann ich das Eigenschaftenfenster aufrufen und darin die Schnittstellenparameter des ActiveX sehen und ändern.
Jetzt ist es aber so, daß das ActiveX zusammen mit anderen Shapes, z.B. einer Linie oder Rechteck zusammen gruppiert werden. Habe ich eine solche Gruppe selektiert, dann steht das Eigenschaftenfesnter nicht mehr zur Verfügung. Ich versuche nun ein Makro zu schreiben, das mir aus der Selektion die ActiveX-Steuerelemente zusammensucht und dann das Eigenschaftenfenster mit diesen Objekten füttert und anzeigt.
Der Knackpunkt für mich ist wie ich von VBA aus auf das Eigenschaftenfenster von PPT zugreifen kann.
Gruß, Chefhunter
hallo chefhunter,
ich glaube das es der falsche ansatz ist, das eigenschaftsfenster per code anzeigen zu lassen(weis auch nicht wie es geht)
wie wäre ein anderer ansatz?
du schreibst eine form(eigenschaftsfenster) !— bei änderungen von werten werden diese dem steuerelement zugewiesen
gruß
rasta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Rasta,
ja das ist dann wohl der richtige Weg. Dazu muß ich aber einen Automatismus entwickeln, der mir die Variablennamen, Größe und die Spezifikation (Wertebereich) gibt.
Hast Du eine Idee wie man das von der ActiveX-Schnittstelle abfragen kann?
Gruß, Chefhunter
hallo chefhunter,
ich hoffe wir reden nicht aneinander vorbei 
als bsp. habe ich eine textbox in meine präsentation gesetzt
im vba-editor habe ich eine userform mit 2 option-buttons und einen command-button entworfen.
bei klick auf den button wird geprüft, welcher optionbutton aktiv war, und dementsprechend die eigenschaft der textbox verändert.
bsp:
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Slide1.TextBox1.MultiLine = False
ElseIf OptionButton2.Value = True Then
Slide1.TextBox1.MultiLine = True
End If
End Sub
das ergebnis ist, das einmal der text in meiner textbox auf multiline gestellt wird, und einmal auf single-line
hilft dir das weiter??
viele grüße
rasta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Rasta,
das mit dem direkten Zugriff funktioniert, stimmt. Jetzt habe ich aber keine Standard-ActiveX, sondern andere, die neben den Standard-Variablen noch zusätzliche anbieten. Irgendwoher kennt PPT aber die vollständige Schnittstelle, denn wenn ich das Eigenschaftenfenster auf ein ActiveX öffne, dann erscheinen alle Parameter. Entweder kennt PPT das vom installieren der ActiveX her oder die Schnittstelle wird ausgelesen (wie auch immer). Und diese Möglichkeit möchte ich in VBA auch haben.
Der erste Schritt dahin wäre (glaube ich), daß ich eine Referenz auf das ActiveX erhalte. Wenn ich in VBA aber eine Referenz schreibe wie:
Dim myAX As AlarmX.AlarmX
Set myAX = slide(1).shape(1).OLEFormat.Object
MsgBox myAX.AlarmDetails
…dann akzeptiert das der Kompiler - wunderbar, aber beim Zugriff auf irgendeine Member (AlarmDetails) stürzt PPT ab.
Es ist irgendwie nicht so ganz leicht zu erklären, was ich möchte…
Danke für Deine Hilfen,
Gruß, Chefhunter
hi chefhunter,
du bist doch schon auf dem richtigen dampfer…
mit der oleobjects-auflistung lässt du dir alle activeX-steuerelemente ausgeben.
damit kannst du auch einzelne steuerelemente ansprechen und werte setzen
wie stürzt ppt ab? ohne fehlermeldung? kann man den wert überhaupt setzen?
nicht aufgeben!!
gruß
rasta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Jo, PP stürzt einfach ab, ohne Fehlermedung! Das ist ein sehr seltsames Phänomen. Ich werde das mal auf einem anderen Rechner ausprobiereb; vielleicht habe ich auf meinem System eine merkwürdige Konstellation…
Vielen Dank,
Chefhunter