Autoform, Farbe bei klick ändern

Moderator: ModerationP

Autoform, Farbe bei klick ändern

Beitragvon Hartmut F. » 23. Dez 2020, 14:38

Hallo zusammen,

ich habe einer Autoform folgendes Makro zugewiesen:

Code: Alles auswählen
Sub Button()
With ActiveSheet.Shapes("Abgerundetes Rechteck 1")
    .Fill.ForeColor.SchemeColor = 8
    If .Fill.Visible = msoFalse Then
        .Fill.Visible = msoTrue
            Else
        .Fill.Visible = msoFalse
    End If
End With
End Sub


Leider funktioniert das ganze im Präsentationsmodus nicht, kann mir jemand sagen was daran falsch ist.

Schon einmal vielen Dank im Voraus

Hartmut
Benutzeravatar
Hartmut F.
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 893
Registriert: 16. Jan 2009, 09:01
Wohnort: Peiting

Re: Autoform, Farbe bei klick ändern

Beitragvon G.O.Tuhls » 23. Dez 2020, 17:01

Warum VBA, wenn es eine Standard-Animation dafür gibt?

Gruß
G. O.
Press any thumb to continue. :D
Benutzeravatar
G.O.Tuhls
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8245
Registriert: 26. Mär 2010, 14:19
Wohnort: Berlin

Re: Autoform, Farbe bei klick ändern

Beitragvon Hartmut F. » 23. Dez 2020, 17:41

Hallo,

das wäre mir auch recht, nur weiß ich nicht wie ich es anstellen muss. Mit Trigger habe ich schon lange rumprobiert bin aber leider auf keinen grünen Zweig gekommen.
Es wäre super wenn du mir weiterhelfen könntest.

Gruß

Hartmut
Benutzeravatar
Hartmut F.
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 893
Registriert: 16. Jan 2009, 09:01
Wohnort: Peiting

Re: Autoform, Farbe bei klick ändern

Beitragvon G.O.Tuhls » 23. Dez 2020, 19:36

Soll die Farbe 1x gewechselt werden oder soll sie bei jedem neuen Klick hin und her wechseln?

Gruß
G. O.
Press any thumb to continue. :D
Benutzeravatar
G.O.Tuhls
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8245
Registriert: 26. Mär 2010, 14:19
Wohnort: Berlin

Re: Autoform, Farbe bei klick ändern

Beitragvon DerHoepp » 23. Dez 2020, 22:01

Moin,

ActiveSheet

ist kein Powerpointobjekt.

Viele Grüße
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9727
Registriert: 14. Mai 2013, 11:08

Re: Autoform, Farbe bei klick ändern

Beitragvon Hartmut F. » 24. Dez 2020, 09:50

Hallo G.O.,

ich möchte das bei jeden Klick auf das Objekt die Farbe von Grau in Grün bzw. von Grün in Grau wechselt.

Hallo derHöpp,

wie gesagt ich kenne mich mit VBA nicht wirklich aus und habe mir den Code im Netz "ausgeliehen", wie lautet den das Objekt bei Powerpoint, sodass das Makro hier auch läuft?

Grüße an euch beide und ein frohes Weihnachtsfest

Hartmut
Benutzeravatar
Hartmut F.
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 893
Registriert: 16. Jan 2009, 09:01
Wohnort: Peiting

Re: Autoform, Farbe bei klick ändern

Beitragvon G.O.Tuhls » 24. Dez 2020, 12:11

Ok, das geht ganz simpel.
Zeichne die graue Form und mach ein Duplikat davon in grün.
Der grünen Form weist Du zwei Animationen zu:
Eingang Verblassen mit Trigger durch graue Form,
Ausgang Verblassen mit Trigger durch grüne Form (wird also durch sich selbst getriggert).
Dann bringst Du beide zur Deckung & done.

Gruß
G. O.
Press any thumb to continue. :D
Benutzeravatar
G.O.Tuhls
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8245
Registriert: 26. Mär 2010, 14:19
Wohnort: Berlin

Re: Autoform, Farbe bei klick ändern

Beitragvon Hartmut F. » 24. Dez 2020, 14:01

Hallo,

schon einmal vielen Dank, ich schaffe es das das grüne Feld bei einem Klick grau wird. Abe was bei mir noch nicht funktioniert ist, wenn ich dann auf das grau gewordene Feld ein weiteres mal klicke das es wieder grün wird.
Irgendetwas habe ich wohl noch vergessen.

Gruß

Hartmut
Benutzeravatar
Hartmut F.
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 893
Registriert: 16. Jan 2009, 09:01
Wohnort: Peiting

Re: Autoform, Farbe bei klick ändern

Beitragvon G.O.Tuhls » 24. Dez 2020, 14:46

Versteh ich nicht. Wenn Du die Anleitung Schritt für Schritt befolgst, klappt das auch.

Gruß
G.O.
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Press any thumb to continue. :D
Benutzeravatar
G.O.Tuhls
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8245
Registriert: 26. Mär 2010, 14:19
Wohnort: Berlin

Re: Autoform, Farbe bei klick ändern

Beitragvon Hartmut F. » 24. Dez 2020, 16:08

Hallo G.O.

o Mann, jetzt habe ich endlich verstanden und kapiert. Danke dir für deine Hilfe.

Gruß Hartmut und noch einen schönen Abend
Benutzeravatar
Hartmut F.
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 893
Registriert: 16. Jan 2009, 09:01
Wohnort: Peiting

Re: Autoform, Farbe bei klick ändern

Beitragvon DerHoepp » 25. Dez 2020, 17:57

Moin Hartmut,

ich glaube, du hättest den Zweck der Übung dazuschreiben sollen. Wenn der Status des jeweiligen Kreises mit gedruckt werden soll, kannst du das nicht über die Animation erledigen. Da müsstest du das Shapeobjekt an sich ändern.

Das zugehörige Eltern-Objekt ist das Slideobjekt in der View des SlideShowWindow. Also so, wie ich in meinem Code für die Druckmarkierung gezeigt habe.

Viele Grüße
DerHoepp
Vom Mobiltelefon gesendet
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9727
Registriert: 14. Mai 2013, 11:08

Re: Autoform, Farbe bei klick ändern

Beitragvon Hartmut F. » 26. Dez 2020, 12:43

Hallo,

danke für deine weitere Erläuterung :-)

Gruß

Hartmut
Benutzeravatar
Hartmut F.
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 893
Registriert: 16. Jan 2009, 09:01
Wohnort: Peiting


Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

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