Norādījumi mūzikas klausīšanai pakalpojumā Google Maps
Norādījumi mūzikas klausīšanai pakalpojumā Google Maps. Pašlaik lietotāji var ceļot un klausīties mūziku, izmantojot Google Map lietojumprogrammu iPhone tālrunī. Šodien WebTech360 aicina jūs
Pirms pāris dienām kāds lasītājs jautāja par to, vai ir iespējams automatizēt PowerPoint prezentāciju izveidi no jauna un pēc tam ātri pievienot slaidus esošajai prezentācijai. Es domāju, ka šis skripts varētu būt ļoti noderīgāko PowerPoint makro sarakstā.
Kā mēs norādījām iepriekš, PowerPoint neietver makro ierakstītāju (tas ir atšķirībā no Excel un Word, kuriem abiem ir iebūvēti makro ierakstītāji). Tāpēc mums ir atlicis vecais labais Visual Basic for Application, ko varam izmantot, lai izveidotu vienkāršus makro, lai automatizētu PowerPoint. Ir arī citas PowerPoint automatizācijas alternatīvas, taču tās pārsniedz šīs apmācības darbības jomu.
Šodienas īsajā apmācībā mēs apskatīsim trīs dažādus lietošanas gadījumus.
Sāksim.
Paskaties uz lenti. Ja izvēlnē neredzat ierakstu Izstrādātājs, pirms kodēšanas sākuma ir jāiespējo izstrādātāja cilne.
Kad esat padarījis Izstrādātāja izvēlni redzamu savā lentē, noklikšķiniet uz Izstrādātājs , pēc tam nospiediet Visual Basic pogu (vai vienkārši turpiniet un nospiediet Alt+F11), lai atvērtu Visual Basic IDE.
VBA, lai izveidotu PowerPoint prezentāciju
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA, lai ievietotu slaidus
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 jaunas prezentācijas iestatīšanai un slaidu pievienošanai
Tas būtu tikai divu iepriekš aprakstīto fragmentu sajaukšana.
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
Pēc tam varat skatīt mūsu pamācību par programmētu formu izveidi programmā PowerPoint, izmantojot VBA
Ģenerējiet PowerPoint prezentāciju no Excel
Pēdējais gadījums ir tāds, ka vēlaties izveidot PowerPoint prezentāciju tieši no Excel izklājlapas. Varat izmantot to pašu paņēmienu no Word un citām Microsoft 365 lietojumprogrammām.
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
Izbaudi 🙂
Norādījumi mūzikas klausīšanai pakalpojumā Google Maps. Pašlaik lietotāji var ceļot un klausīties mūziku, izmantojot Google Map lietojumprogrammu iPhone tālrunī. Šodien WebTech360 aicina jūs
LifeBOX lietošanas instrukcijas — Viettel tiešsaistes krātuves pakalpojums, LifeBOX ir nesen palaists Viettel tiešsaistes krātuves pakalpojums ar daudzām izcilām funkcijām.
Kā atjaunināt statusu pakalpojumā Facebook Messenger, Facebook Messenger jaunākajā versijā ir nodrošinājis lietotājiem ārkārtīgi noderīgu funkciju: mainot
Instrukcijas kāršu spēlei Werewolf Online datorā, instrukcijas Werewolf Online lejupielādei, instalēšanai un spēlēšanai datorā, izmantojot ārkārtīgi vienkāršo LDPlayer emulatoru.
Norādījumi Instagram publicēto stāstu dzēšanai. Ja vēlaties dzēst stāstu Instagram, bet nezināt, kā? Šodien WebTech360
Norādījumi par piedāvāto attēlu pievienošanu Facebook. Pašlaik Facebook ļauj mums iestatīt piedāvātos attēlus mūsu personīgajās lapās. Šeit mēs jūs aicinām
Kā novērst Windows Quick Assist nedarbošanās kļūdu, Windows Quick Assist palīdz ērti izveidot savienojumu ar attālo datoru. Tomēr dažreiz tas rada arī kļūdas. Bet,
Norādījumi dziesmu miksēšanas ieslēgšanai/izslēgšanai pakalpojumā Spotify, lai palīdzētu cilvēkiem ātri mainīt dziesmu secību iepriekš minētajā mūzikas atskaņošanas sarakstā
Norādījumi slepenai ierakstīšanai iPhone tālrunī, Pašlaik iPhone lietotāji var ierakstīt slepeni, pieskaroties tālruņa aizmugurē. Šodien WebTech360 aicina jūs
Kā izmantot Mixamo, lai animētu pielāgotus 3D modeļus. Izmantojot Mixamo, varat viegli importēt 3D modeli un lietot tam animācijas efektus. Zemāk ir lietošanas instrukcijas