9
Powerpoint Element auf jeder Folie ändern oder entfernen. Folienmaster wurde nicht benutzt
Hallo zusammen!
Wie bereits die Frage schon relativ genau erklärt:
Ist es möglich, Elemente die quasi per Hand auf jede Folie kopiert wurden, auf jeder Folie zu verschieben oder zu ersetzen?
Da es ohne Folienmaster erzeugt wurde, sehe ich da glaube ich keine Chance das für alle Folien gleichzeitig zu machen oder irre ich mich da?
---
Element oben rechts soll kleiner und nach unten links
Oben Rechts soll ein neues Logo hin, das würde ich dann aber diesmal über den Folienmaster realisieren
Hat jemand eine schlaue Lösung?
Es betrifft 9 Powerpoints mit je 100~ Folien
Viele Grüße
Markus
Wie bereits die Frage schon relativ genau erklärt:
Ist es möglich, Elemente die quasi per Hand auf jede Folie kopiert wurden, auf jeder Folie zu verschieben oder zu ersetzen?
Da es ohne Folienmaster erzeugt wurde, sehe ich da glaube ich keine Chance das für alle Folien gleichzeitig zu machen oder irre ich mich da?
---
Element oben rechts soll kleiner und nach unten links
Oben Rechts soll ein neues Logo hin, das würde ich dann aber diesmal über den Folienmaster realisieren
Hat jemand eine schlaue Lösung?
Es betrifft 9 Powerpoints mit je 100~ Folien
Viele Grüße
Markus
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 550196
Url: https://administrator.de/contentid/550196
Printed on: April 25, 2024 at 10:04 o'clock
9 Comments
Latest comment
Hallo,
die Elemente die weg können einfach löschen und dann die Datei sauber mit einem Folienmaster neu anlegen.
brammer
die Elemente die weg können einfach löschen und dann die Datei sauber mit einem Folienmaster neu anlegen.
brammer
Hi,
evtl kannst du dir auch ein Makro aufnehmen und das dann auf jeder Folie anwenden.
Gruß
evtl kannst du dir auch ein Makro aufnehmen und das dann auf jeder Folie anwenden.
Gruß
Ja aber dann müsste ich es 900x löschen?!
An der Makro Variante arbeite ich grad aber leider ist es nicht so einfach wie in Excel:
Makro rekorden und das war es. Man muss halt selber nen VBA skript schreiben, mit dem ich mich leider gar nicht auskennen
An der Makro Variante arbeite ich grad aber leider ist es nicht so einfach wie in Excel:
Makro rekorden und das war es. Man muss halt selber nen VBA skript schreiben, mit dem ich mich leider gar nicht auskennen
Ja, Macro aufzeichnen, anpassen und los geht's
@killtec
Wo genau soll es diesen Button geben?
Der wurde ab 2013 entfernt. Das einzige was mir bleibt ist ein Skript zu schreibt.
Wo genau soll es diesen Button geben?
Der wurde ab 2013 entfernt. Das einzige was mir bleibt ist ein Skript zu schreibt.
Hallo,
Makro sind im Reiter Entwickler tools.
brammer
Makro sind im Reiter Entwickler tools.
brammer
Nochmal:
Makro ist im Reiter "Entwickler Tools" aber dort kann man keine Aktion aufnehmen. Das wurde entfernt ab 2013.
Ich kann nur ein eigenes Skript programmieren, wo mir leider die Kenntnisse zu fehlen.
-
Bereits eine andere Lösung gefunden:
Record Tool heruntergeladen und wiederhole das löschen des Elementes auf jeder Folie per extern Tool.
Makro ist im Reiter "Entwickler Tools" aber dort kann man keine Aktion aufnehmen. Das wurde entfernt ab 2013.
Ich kann nur ein eigenes Skript programmieren, wo mir leider die Kenntnisse zu fehlen.
-
Bereits eine andere Lösung gefunden:
Record Tool heruntergeladen und wiederhole das löschen des Elementes auf jeder Folie per extern Tool.
Stimmt, das ist in der Tat raus genommen. War mir so noch nicht bekannt.
Wenn du das über ein externes Tool aufgezeichnet hast dann geht es ja.
Wenn du das über ein externes Tool aufgezeichnet hast dann geht es ja.
Wenn die Bilder z.B. alle einen bestimmten String im AlternativeText (Beschreibung) haben dann kannst du das mit einem Makro ala diesem machen. Man kann natürlich auch andere Merkmale dafür nehmen, kennen wir hier aber nicht 
.
.Sub MoveItems()
Dim s As Slide, shp As Shape
With ActivePresentation
For Each s In .Slides
For Each shp In s.Shapes
If InStr(1, shp.AlternativeText, "DeinStringBlaBlub", vbTextCompare) > 0 Then
With shp
.Left = 50
.Top = 400
.Width = 50
.Height = 50
End With
Exit For
End If
Next
Next
End With
End Sub
