Office: PowerPoint VBA - nur erste Zeile des Makros wird ausgeführt?

Hallo, allerseits!

Was mach ich falsch, was habe ich nicht bedacht? Ich habe folgendes gemacht:

Auf einer Folie habe ich 3 farbige (halbtransparent rot, grün, blau gefüllt) Kreise. als "Aktionseinstellung" habe ich für jeden Kreis dann die Makros
MausklickRot, MauskontaktRot,
MausklickGruen, MauskontaktGruen,
MausklickBlau, MauskontaktBlau
entsprechend aktiviert. Bislang probiere ich mit "MausklickRot" herum:

Sub MausklickRot()
Anfassen KreisRot
End Sub

Die entsprechende Routine, die dort aufgerufen wird:

Private Sub Anfassen(shp$)
Dim seitenhoehe As Long
Dim seitenbreite As Long
Dim untergrenze As Long
Dim obergrenze As Long
MsgBox "Klick: " & shp
With ActiveWindow
seitenhoehe = .Height
seitenbreite = .Width
End With
MsgBox "hoehe * breite (seite): " & seitenhoehe & " * " & seitenbreite
With ActivePresentation.Slides(1).Shapes(shp)
untergrenze = .Width
obergrenze = seitenhoehe - .Height - .Height
.Top = Int(Rnd * (obergrenze - untergrenze + 1) + untergrenze)
untergrenze = .Width
obergrenze = seitenbreite - .Width - .Width
.Left = Int(Rnd * (obergrenze - untergrenze + 1) + untergrenze)
MsgBox "top / left: " & .Top & " / " & .Left
End With
End Sub

Im Header des Moduls noch:

Option Explicit
Const KreisRot = "Ellipse 1"
Const KreisGruen = "Ellipse 2"
Const KreisBlau = "Ellipse 3"

Mein Problem jetzt:

Wenn ich die Präsentation mit F5 starte und kurz mit der Maus "rühre", wird der Mauscursor sichtbar. Bewege ich den Mauscursor dann über den roten Kreis und klicke dann mit links, erhalte ich auch die Messagebox mit dem "Klick: Ellipse 1".

Aber das war's dann auch! die 2. Messagebox kommt schon nicht mehr, geschweige denn, daß der Kreis seine Position verändert.

Wenn ich die msgbox-Anweisung hinter den ersten with-Block verschiebe, kommt nicht mal mehr die Messagebox!

Was muß ich hier ändern, damit das sub komplett abgearbeitet wird?

Ich hab die ppt mal im Anhang angefügt. Außerdem: PP 2000 (nicht 2003, hatte mich im letzten Thread vertan...)

Gruß, Michael

 

Re: PowerPoint VBA - nur erste Zeile des Makros wird ausgefü

me, myself and i:
> Was mach ich falsch, was habe ich nicht bedacht?

Also ich bin jetzt einen ordentlichen Schritt weiter gekommen.

Das grundsätzliche Problem war wohl, daß ich auf den falschen Canvas zugegriffen habe. Wenn ich das SlideShowWindow nehme, klappt es.

Jetzt hab ich noch 2 kleinere Probleme:

a) Wie hoch / breit ist das SlideShowWindow?

With Application.ActivePresentation.SlideShowWindow
seitenhoehe = .Height
seitenbreite = .Width
seitenrandy = .Top
seitenrandx = .Left
End With

Damit kriege ich die Werte 768, 960, 0, 0 heraus. Die Grafikkarte ist auf eine Auflösung von 1280x1024 eingestellt.

Benutze ich dann folgendes für die Berechnung der neuen Position des Shapes:

untergrenze = shapehoehe
obergrenze = seitenhoehe - 2 * untergrenze
Y = Int(Rnd * (obergrenze - untergrenze + 1) + untergrenze)

untergrenze = shapebreite
obergrenze = seitenbreite - 2 * untergrenze
X = Int(Rnd * (obergrenze - untergrenze + 1) + untergrenze)

Dann passiert es aber immer wieder mal, daß der Shape im unsichtbaren Bereich verschwindet. Wie kann das sein?

b) Das Ansprechen eines Shapes macht mir leichte Probleme. Ich habe 3 Kreise erstellt, die "Ellipse 1" usw. heißen. Blöderweise behalten die Shapes aber ihre Namen nicht, wenn die Präsentation mit F5 gestartet wird. In meiner ppt wird aus "Ellipse 1" dann plötzlich "Oval 2" usw.

Z.Z. behelfe ich mir damit, zusätzlich zum Namen auch eine Nummer zu übergeben. Aber ich weiß nicht, ob PP womöglich die Reihenfolge der Shapes auch mal durcheinanderwürfelt, womit ich mit 1 nicht mehr den roten Kreis, sondern vielleicht den blauen erwischen würde.

Komme ich irgendwo noch an den ursprünglichen Namen heran, um ein Shape auf der Folie zu finden?

Gruß, Michael