[100% löst] Hur åtgärdar jag meddelandet Fel vid utskrift i Windows 10?
Får felmeddelande om utskrift på ditt Windows 10-system, följ sedan korrigeringarna i artikeln och få din skrivare på rätt spår...
För ett par dagar sedan frågade en läsare om det finns ett sätt att automatisera skapandet av PowerPoint-presentationer från början och sedan snabbt lägga till bilder till den befintliga presentationen. Jag trodde att det skriptet kan vara mycket i listan över de mest användbara PowerPoint-makron.
Som vi antytt tidigare, inkluderar PowerPoint inte en makroinspelare (det är till skillnad från Excel och Word, som båda har inbyggda brännare för makro). Därför sitter vi kvar med gamla goda Visual Basic for Application som vi kan använda för att skapa enkla makron för att automatisera PowerPoint. Det finns ytterligare alternativ för PowerPoint Automation, men de går utöver den här handledningen.
I dagens korta handledning kommer vi att gå över tre olika användningsfall:
Låt oss börja.
Titta på bandet. Om du inte ser posten för utvecklare i menyn måste du aktivera fliken utvecklare innan du startar kodningen.
När du har gjort Utvecklarmenyn synligt för ditt menyfliksområdet, fortsätt och tryck på Utvecklare och tryck sedan på Visual Basic - knappen (eller helt enkelt gå vidare och tryck Alt+F11) för att öppna Visual Basic IDE.
VBA för att skapa PowerPoint-presentationer
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA för att infoga diabilder
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 för att ställa in en ny presentation och lägga till bilder
Det skulle bara vara att blanda ihop de två utdragen som beskrivs ovan.
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
Därefter kan du titta på vår handledning om att programmera skapa former i PowerPoint med VBA
Skapa en PowerPoint-presentation från Excel
Det sista fallet är att du vill skapa en PowerPoint-presentation direkt från ett Excel-kalkylblad. Du kan använda samma teknik från Word och andra Microsoft 365-program.
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
Njut 🙂
Får felmeddelande om utskrift på ditt Windows 10-system, följ sedan korrigeringarna i artikeln och få din skrivare på rätt spår...
Du kan enkelt besöka dina möten igen om du spelar in dem. Så här spelar du in en Microsoft Teams-inspelning för ditt nästa möte.
När du öppnar en fil eller klickar på en länk väljer din Android-enhet en standardapp för att öppna den. Du kan återställa dina standardappar på Android med den här guiden.
FIXAT: Entitlement.diagnostics.office.com certifikatfel
För att ta reda på de bästa spelsajterna som inte blockeras av skolor, läs artikeln och välj den bästa oblockerade spelwebbplatsen för skolor, högskolor och verk
Om du står inför problemet med skrivaren i feltillstånd på Windows 10 PC och inte vet hur du ska hantera det, följ dessa lösningar för att fixa det.
Om du undrar hur du säkerhetskopierar din Chromebook, så hjälper vi dig. Läs mer om vad som säkerhetskopieras automatiskt och vad som inte görs här
Vill du fixa Xbox-appen öppnas inte i Windows 10, följ sedan korrigeringarna som Aktivera Xbox-appen från tjänster, återställ Xbox-appen, Återställ Xbox-apppaketet och andra.
Om du har ett Logitech-tangentbord och -mus kommer du att se den här processen köras. Det är inte skadlig programvara, men det är inte en viktig körbar fil för Windows OS.
Läs artikeln för att lära dig hur du fixar Java Update-fel 1603 i Windows 10, prova korrigeringarna en efter en och fixa fel 1603 enkelt ...