Messenger nie może otworzyć załącznika lub linku? Oto co robić
Messenger nie może otworzyć załącznika lub linku? Dowiedz się, jak rozwiązać ten problem dzięki sprawdzonym krokom i wskazówkom.
Kilka dni temu czytelnik zapytał, czy istnieje sposób na zautomatyzowanie tworzenia prezentacji PowerPoint od podstaw, a następnie szybkie dodawanie slajdów do istniejącej prezentacji. Pomyślałem, że ten skrypt może być wysoko na liście najbardziej przydatnych makr PowerPointa.
Jak wskazaliśmy w przeszłości, PowerPoint nie zawiera rejestratora makr (w przeciwieństwie do Excela i Worda, które mają wbudowane rejestratory makr). Dlatego pozostaje nam stary dobry Visual Basic for Application, którego możemy użyć do tworzenia prostych makr do automatyzacji PowerPoint. Istnieją dalsze alternatywy dla automatyzacji programu PowerPoint, ale wykraczają one poza zakres tego samouczka.
W dzisiejszym krótkim samouczku omówimy trzy różne przypadki użycia:
Zacznijmy.
Spójrz na Wstążkę. Jeśli nie widzisz w menu pozycji Deweloper, przed rozpoczęciem kodowania musisz włączyć kartę Deweloper.
Po tym, jak menu Deweloper będzie widoczne na Wstążce, przejdź dalej i naciśnij Deweloper , a następnie naciśnij przycisk Visual Basic (lub po prostu naciśnij Alt + F11), aby otworzyć środowisko IDE Visual Basic.
VBA do tworzenia prezentacji PowerPoint
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA do wstawiania slajdów
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 do konfiguracji nowej prezentacji i dodawania slajdów
Byłoby to po prostu pomieszaniem dwóch opisanych powyżej fragmentów.
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
Następnie możesz zajrzeć do naszego samouczka na temat programowego tworzenia kształtów w programie PowerPoint za pomocą VBA
Wygeneruj prezentację PowerPoint z Excela
Ostatni przypadek jest taki, że chcesz utworzyć prezentację PowerPoint bezpośrednio z arkusza kalkulacyjnego Excel. Możesz zastosować tę samą technikę z Worda i innych aplikacji 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
Ciesz się 🙂
Messenger nie może otworzyć załącznika lub linku? Dowiedz się, jak rozwiązać ten problem dzięki sprawdzonym krokom i wskazówkom.
Dowiedz się, jak szybko stworzyć grupę kontaktów w Outlook, aby efektywnie zarządzać swoimi wiadomościami e-mail. Oszczędzaj czas z naszą szczegółową instrukcją.
Dowiedz się, jak rozwiązać problem z błędem 740 żądana operacja wymaga podniesienia Windows 10 problemów z rozwiązaniami przedstawionymi w tym artykule.
Jeśli chcesz mieć większą kontrolę nad tym, które witryny próbują uzyskać dostęp na Twoim komputerze, oto jak skutecznie zarządzać uprawnieniami witryny w Microsoft Edge.
Poznaj najlepsze emulatory PS4 na PC, które pozwolą Ci grać w gry na konsole PlayStation 4 za darmo na komputerach z Windows.
Odkryj możliwe rozwiązania, aby naprawić błąd wyjątku nieznanego oprogramowania (0xe0434352) w systemie Windows 10 i 11 podany tutaj…
Jak usunąć animacje z prezentacji PowerPoint, aby dostosować ją do profesjonalnych standardów. Oto przydatne wskazówki.
Radzenie sobie z Wicked Whims, które nie działają w Sims 4. Wypróbuj 6 skutecznych rozwiązań, takich jak aktualizacja modów i więcej.
Odkryj jak naprawić problem z kontrolerem PS4, który się nie ładuje. Sprawdź 8 prostych rozwiązań, w tym testy kabli, portów oraz reset kontrolera.
Dowiedz się, jak naprawić Operacja nie zakończyła się pomyślnie, ponieważ plik zawiera wirusa Windows 11/10 i nie można otworzyć żadnego pliku…