GELÖST - Zustand der Animationen in Präsentation speichern

Moderator: ModerationP

GELÖST - Zustand der Animationen in Präsentation speichern

Beitragvon tognit » 03. Sep 2020, 07:43

Hallo zusammen,

ist es möglich, den Endzustand einer Klick-Animation zu speichern?

Man öffnet die Präsentation, klickt auf einen Button, es animiert was und dieser Zustand kann man dann speichern.
Wenn die Präsentation das nächste mal geöffnet wird, sieht man den letzten Zustand der Animationen.

Ich habe einen Schaltplan der Punkte zeigt, die offen oder geschlossen sind. Jetzt müsste man diesen Zustand der Punkte wie zwischenspeichern.

Gruss
Steven
Zuletzt geändert von tognit am 08. Sep 2020, 15:37, insgesamt 1-mal geändert.
tognit
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9
Registriert: 30. Mär 2020, 14:16

Re: Zustand der Animationen in Präsentation speichern

Beitragvon tognit » 07. Sep 2020, 11:45

Da das warscheinlich nicht funktioniert, habe ich natürlich weiter gesucht.

Jetzt habe ich einen Code geschrieben, der in die richtige Richtung geht.
Code: Alles auswählen
Sub ChangeControlSoft()

    With ActiveWindow.Selection.ShapeRange()
        sh1Rotation = .Item(1).Rotation
        'sh1Rotation = .Item(1).ActionSettings.Item(ppMouseClick).AnimateAction = True
       
        If sh1Rotation < 35 Then
            .IncrementRotation 35
        ElseIf sh1Rotation = 35 Then
            .IncrementRotation -35
        End If
       
        '.Name = sh1Rotation
    End With
     
End Sub


Leider habe ich noch nicht herausgefunden, wie ich diesen Code in der Präsentation auslösen kann.
In der Präsentation hat es verschiedene Objekte die ich per Klick manipulieren (Rotation) möchte.
Der Zustand kann ja dann über einen Speicher Button gespeichert werden.

Wenn ich das ganze über in der Normal-Ansicht über Makro teste, funktioniert es.
tognit
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9
Registriert: 30. Mär 2020, 14:16

Re: Zustand der Animationen in Präsentation speichern

Beitragvon tognit » 08. Sep 2020, 15:36

Hallo zusammen

habe jetzt eine Lösung die für mich so stimmt gefunden...

Code: Alles auswählen
Sub ChangeControlSoft(ByRef oShp As Shape)
 
    If oShp.Line.Parent.Rotation < 35 Then
        oShp.Line.Parent.Rotation = 35
    ElseIf oShp.Line.Parent.Rotation = 35 Then
        oShp.Line.Parent.Rotation = 0
    End If
     
End Sub


Vielleicht kann das ja jemand auch noch gebrauchen oder es noch verbessern ;-)
tognit
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9
Registriert: 30. Mär 2020, 14:16


Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 7 Gäste

cron