So zeichnen Sie auf einem Foto auf dem iPhone
Erfahren Sie, wie Sie auf einem Foto auf Ihrem iPhone zeichnen können. Unsere Schritt-für-Schritt-Anleitung zeigt Ihnen die besten Methoden.
Vor ein paar Tagen fragte ein Leser nach einer Möglichkeit, die Erstellung von PowerPoint-Präsentationen von Grund auf zu automatisieren und dann schnell Folien zu dieser vorhandenen Präsentation hinzuzufügen. Ich denke, dass dieses Skript ganz oben in der Liste der nützlichsten PowerPoint-Makros stehen könnte.
Wie wir in der Vergangenheit angedeutet haben, enthält PowerPoint keinen Makrorekorder (im Gegensatz zu Excel und Word, die beide Rekorder für Makros eingebaut haben). Daher bleibt uns das gute alte Visual Basic for Application, mit dem wir einfache Makros zur Automatisierung von PowerPoint erstellen können. Es gibt weitere Alternativen zur PowerPoint-Automatisierung, die jedoch den Rahmen dieses Tutorials sprengen würden.
In dem heutigen kurzen Tutorial gehen wir auf drei verschiedene Anwendungsfälle ein:
Lass uns anfangen.
Sieh dir das Band an. Wenn Sie den Entwickler-Eintrag im Menü nicht sehen, müssen Sie vor dem Programmieren die Entwickler-Registerkarte aktivieren.
Nachdem Sie das Entwicklermenü in Ihrem Menüband sichtbar gemacht haben, klicken Sie auf Developer und dann auf die Visual Basic - Schaltfläche (oder fahren Sie einfach fort und drücken Sie Alt+F11), um die Visual Basic-IDE zu öffnen.
VBA zum Erstellen einer PowerPoint-Präsentation
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA zum Einfügen von Folien
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
Makro zum Einrichten einer neuen Präsentation und Hinzufügen von Folien
Das würde nur die beiden oben skizzierten Snippets verwechseln.
Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub
Als nächstes können Sie sich unser Tutorial zum programmgesteuerten Erstellen von Formen in PowerPoint mit VBA ansehen
Erstellen Sie eine PowerPoint-Präsentation aus Excel
Der letzte Fall ist, dass Sie eine PowerPoint-Präsentation direkt aus einer Excel-Tabelle erstellen möchten. Sie können dieselbe Technik von Word und anderen Microsoft 365-Anwendungen verwenden.
Sub CreatePresentationFromExcel()
Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")
Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close
MyPPt.Quit
MsgBox ("Presentation saved")
End Sub
Viel Spaß 🙂
Erfahren Sie, wie Sie auf einem Foto auf Ihrem iPhone zeichnen können. Unsere Schritt-für-Schritt-Anleitung zeigt Ihnen die besten Methoden.
TweetDeck ist eine App, mit der Sie Ihren Twitter-Feed und Ihre Interaktionen verwalten können. Hier zeigen wir Ihnen die Grundlagen für den Einstieg in TweetDeck.
Möchten Sie das Problem mit der fehlgeschlagenen Discord-Installation unter Windows 10 beheben? Wenden Sie dann die angegebenen Lösungen an, um das Problem „Discord kann nicht installiert werden“ zu beheben …
Entdecken Sie die besten Tricks, um zu beheben, dass XCOM2-Mods nicht funktionieren. Lesen Sie mehr über andere verwandte Probleme von XCOM2-Wotc-Mods.
Um den Chrome-Fehler „chrome-error://chromewebdata/“ zu beheben, nutzen Sie erprobte Korrekturen wie das Löschen des Browsercaches, das Deaktivieren von Erweiterungen und mehr.
Einer der Vorteile von Spotify ist die Möglichkeit, benutzerdefinierte Wiedergabelisten zu erstellen und das Bild der Wiedergabeliste anzupassen. Hier ist, wie Sie das tun können.
Wenn RCS bei Samsung Messages nicht funktioniert, stellen Sie sicher, dass Sie lokale Daten von Carrier-Diensten löschen, deinstallieren Sie die Updates oder versuchen Sie es mit Google Messages.
Beheben Sie den OpenGL-Fehler 1282 (Ungültiger Vorgang) in Minecraft mit detaillierten Korrekturen, die im Artikel beschrieben sind.
Wenn Sie sehen, dass der Google Assistant auf diesem Gerät nicht verfügbar ist, empfehlen wir Ihnen, die Anforderungen zu überprüfen oder die Einstellungen zu optimieren.
Wenn Sie DuckDuckGo loswerden möchten, ändern Sie die Standardsuchmaschine, deinstallieren Sie die App oder entfernen Sie die Browsererweiterung.