7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10
Luptă cu eroarea Blue Screen of Death (BSOD) în Windows 10. Obțineți remedieri de depanare pentru a rezolva această eroare cu ușurință.
Cu câteva zile în urmă, un cititor a întrebat că există o modalitate de a automatiza crearea de prezentări PowerPoint de la zero și apoi de a adăuga rapid diapozitive la prezentarea existentă. Am crezut că acel script ar putea fi foarte în lista celor mai utile macrocomenzi PowerPoint.
După cum am indicat în trecut, PowerPoint nu include un Macro Recorder (care este spre deosebire de Excel și Word, care ambele au încorporate recordere pentru Macro). Prin urmare, am rămas cu vechiul Visual Basic pentru Aplicație pe care îl putem folosi pentru a crea macrocomenzi simple pentru a automatiza PowerPoint. Există alte alternative pentru automatizarea PowerPoint, dar acestea depășesc scopul acestui tutorial.
În tutorialul scurt de astăzi, vom trece peste trei cazuri de utilizare diferite:
Să începem.
Uită-te la Ribbon. Dacă nu vedeți o intrare pentru Dezvoltator în meniu, înainte de a începe codarea, va trebui să activați fila Dezvoltator.
După ce faceți vizibil meniul Developer Ribbon, mergeți mai departe și apăsați pe Developer , apoi apăsați pe butonul Visual Basic (sau pur și simplu mergeți mai departe și apăsați Alt+F11) pentru a deschide Visual Basic IDE.
VBA pentru a crea o prezentare PowerPoint
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA pentru a insera diapozitive
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 pentru a configura o nouă prezentare și pentru a adăuga diapozitive
Ar fi doar amestecarea celor două fragmente prezentate mai sus.
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
În continuare, s-ar putea să consultați tutorialul nostru despre crearea programatică a formelor în PowerPoint cu VBA
Generați o prezentare PowerPoint din Excel
Ultimul caz este că doriți să creați o prezentare PowerPoint direct dintr-o foaie de calcul Excel. Puteți folosi aceeași tehnică din Word și din alte aplicații Microsoft 365.
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
Bucură-te 🙂
Luptă cu eroarea Blue Screen of Death (BSOD) în Windows 10. Obțineți remedieri de depanare pentru a rezolva această eroare cu ușurință.
Dacă doriți să creați etichete în aplicația Gmail, acest ghid vă oferă soluția. Aflati cum sa faceti acest lucru atât pe telefon, cât și pe desktop.
Îmbunătățiți-vă documentele cu un chenar de pagină personalizat în Word. Află cum să adăugați și să personalizezi chenarul.
Dacă Xbox-ul dvs. nu se va conecta la Wi-Fi, urmăriți soluțiile furnizate în acest articol pentru a vă conecta Xbox și a continua să jucați.
Dacă PS4 se oprește de la sine, urmați soluțiile noastre eficiente pentru a remedia problema rapid și ușor.
Aflați cele mai bune soluții pentru a remedia eroarea „microfonul este dezactivat de setările sistemului” pe Google Meet, Zoom și Hangouts.
Descoperiți modalitățile simple și eficiente de a scrie fracții în Google Docs folosind caractere speciale și echivalente automate.
Remedierea eroarei Google ReCaptcha „Eroare pentru proprietarul site-ului: tip cheie invalid” prin soluții eficiente și actualizate.
Setările de calibrare a culorilor încorporate în Windows 10 vă ajută să îmbunătățiți acuratețea culorii monitoarelor dvs. Acest ghid detaliat vă arată cum să găsiți și să configurați aceste setări.
Conectarea la rețeaua PlayStation a eșuat atunci când vă conectați la PS4, apoi urmați remedieri precum actualizarea software-ului sistemului PSN, modificarea setărilor DNS...