[100% løst] Hvordan fikser du Feilutskrift-melding på Windows 10?
Mottar feilmelding om utskrift på Windows 10-systemet ditt, følg deretter rettelsene gitt i artikkelen og få skriveren din på rett spor...
For et par dager siden spurte en leser om det er en måte å automatisere oppretting av PowerPoint-presentasjoner fra bunnen av og deretter raskt legge til lysbilder til den eksisterende presentasjonen. Jeg trodde at skriptet kan være høyt på listen over de mest nyttige PowerPoint-makroene.
Som vi antydet tidligere, inkluderer ikke PowerPoint en makroopptaker (det er i motsetning til Excel og Word, som begge har innebygde opptakere for makro). Derfor sitter vi igjen med gode gamle Visual Basic for Application som vi kan bruke til å lage enkle makroer for å automatisere PowerPoint. Det er flere alternativer for PowerPoint-automatisering, men de går utover omfanget av denne opplæringen.
I dagens korte veiledning vil vi gå over tre forskjellige brukstilfeller:
La oss komme i gang.
Se på båndet. Hvis du ikke ser en utvikleroppføring i menyen, må du aktivere utviklerfanen før du starter kodingen.
Etter at du har gjort Utvikler-menyen synlig på båndet ditt, fortsett og klikk på Utvikler , og trykk deretter på Visual Basic - knappen (eller bare gå videre og trykk Alt+F11) for å åpne Visual Basic IDE.
VBA for å lage PowerPoint-presentasjoner
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA for å sette inn lysbilder
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 for å sette opp en ny presentasjon og legge til lysbilder
Det ville bare være å blande sammen de to utdragene som er skissert ovenfor.
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
Deretter kan du se nærmere på veiledningen vår om å programmere former i PowerPoint med VBA
Generer en PowerPoint-presentasjon fra Excel
Siste tilfelle er at du ønsker å lage en PowerPoint-presentasjon rett fra et Excel-regneark. Du kan bruke den samme teknikken fra Word og andre Microsoft 365-applikasjoner.
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
Nyt 🙂
Mottar feilmelding om utskrift på Windows 10-systemet ditt, følg deretter rettelsene gitt i artikkelen og få skriveren din på rett spor...
Du kan enkelt besøke møtene dine igjen hvis du tar dem opp. Slik tar du opp og spiller av et Microsoft Teams-opptak for ditt neste møte.
Når du åpner en fil eller klikker på en kobling, vil Android-enheten velge en standardapp for å åpne den. Du kan tilbakestille standardappene dine på Android med denne veiledningen.
RETTET: Entitlement.diagnostics.office.com sertifikatfeil
For å finne ut de beste spillsidene som ikke er blokkert av skoler, les artikkelen og velg den beste ublokkerte spillnettsiden for skoler, høyskoler og arbeider
Hvis du står overfor skriveren i feiltilstand på Windows 10 PC og ikke vet hvordan du skal håndtere det, følg disse løsningene for å fikse det.
Hvis du lurer på hvordan du sikkerhetskopierer Chromebooken din, har vi dekket deg. Finn ut mer om hva som sikkerhetskopieres automatisk og hva som ikke er her
Vil du fikse Xbox-appen vil ikke åpne i Windows 10, følg deretter rettelsene som Aktiver Xbox-appen fra tjenester, tilbakestill Xbox-appen, Tilbakestill Xbox-apppakken og andre..
Hvis du har et Logitech-tastatur og -mus, vil du se at denne prosessen kjører. Det er ikke skadelig programvare, men det er ikke en viktig kjørbar fil for Windows OS.
Les artikkelen for å lære hvordan du fikser Java Update-feil 1603 i Windows 10, prøv rettelsene gitt en etter en og fiks feil 1603 enkelt ...