6 coole zoekmachines om naar gezichten te zoeken
Soms wilt u misschien uw gezicht of dat van iemand anders op internet zoeken. Hier is een blik op zes zoekdiensten voor omgekeerde afbeeldingen die resultaten kunnen opleveren.
Een paar dagen geleden vroeg een lezer of er een manier is om het maken van PowerPoint-presentaties helemaal opnieuw te automatiseren en vervolgens snel dia's toe te voegen aan die bestaande presentatie. Ik dacht dat dat script hoog in de lijst met de handigste PowerPoint-macro's zou kunnen staan.
Zoals we in het verleden hebben aangegeven, bevat PowerPoint geen macrorecorder (in tegenstelling tot Excel en Word, die beide ingebouwde recorders voor macro hebben). Daarom blijven we zitten met de goede oude Visual Basic for Application die we kunnen gebruiken om eenvoudige macro's te maken om PowerPoint te automatiseren. Er zijn nog meer alternatieven voor PowerPoint-automatisering, maar die vallen buiten het bestek van deze tutorial.
In de korte zelfstudie van vandaag bespreken we drie verschillende gebruiksscenario's:
Laten we beginnen.
Kijk naar het lint. Als u het item Ontwikkelaar niet in het menu ziet, moet u het tabblad Ontwikkelaar inschakelen voordat u begint met coderen.
Nadat je het Developer-menu je lint zichtbaar hebt gemaakt, ga je gang en klik je op Developer , dan op de Visual Basic - knop (of ga je gang en druk op Alt+F11) om de Visual Basic IDE te openen.
VBA om PowerPoint-presentatie te maken
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA om dia's in te voegen
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
Macro om een nieuwe presentatie in te stellen en dia's toe te voegen
Dat zou gewoon de twee hierboven geschetste fragmenten door elkaar halen.
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
Vervolgens kunt u onze tutorial bekijken over het programmatisch maken van vormen in PowerPoint met VBA
Een PowerPoint-presentatie genereren vanuit Excel
Het laatste geval is dat u rechtstreeks vanuit een Excel-spreadsheet een PowerPoint-presentatie wilt maken. U kunt dezelfde techniek gebruiken uit Word en andere Microsoft 365-toepassingen.
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
Geniet ervan
Soms wilt u misschien uw gezicht of dat van iemand anders op internet zoeken. Hier is een blik op zes zoekdiensten voor omgekeerde afbeeldingen die resultaten kunnen opleveren.
Als de Facebook Messenger-camera niet werkt, controleer dan de Messenger-status, installeer de app opnieuw of draai terug met een APK.
Ontdek hoe je Gmail kunt toevoegen aan de taakbalk op Windows 10 of Windows 11 met Chrome of Microsoft Edge. Volg onze eenvoudige gids.
Als uw telefoon continu blijft rinkelen, start u uw apparaat opnieuw op, controleert u de nabijheidssensor, reset u de app-voorkeuren of voert u de fabrieksinstellingen terug.
Leer hoe u speciale tekens kunt typen op Windows 11. Volg deze gids voor handige technieken om wiskundige symbolen, emoji
Ontdek 6 efficiënte manieren om Schijfbeheer te openen in Windows 11 voor het partitioneren van schijven en het wijzigen van stationsletters.
Leer hoe u websites kunt vastzetten op de Windows-taakbalk vanuit Microsoft Edge voor snelle toegang met één klik.
Als je de Snapchat-melding voor het bijwerken van berichten op je Android ontvangt, navigeer dan naar Instellingen> Apps> Snapchat> Meldingen en schakel deze uit.
Ontdek hoe je kunt omzeilen dat je geen screenshot kunt maken vanwege het beveiligingsbeleid in apps, en leer handige tips voor het maken van screenshots op Android en iOS.
Lees onze gids om oplossingen te vinden voor het probleem dat COD Modern Warfare gesplitst scherm niet werkt in multiplayer. Volg de gegeven oplossingen en verbeter uw spelervaring.