Przesunięty przez: Artik
10-01-2021, 23:46 |
Numer slajdu PowerPoint |
| Autor |
Wiadomość |
Skubana
Starszy Forumowicz
Wersja: Win Office 365
Posty: 31
|
 Wysłany: 10-01-2021, 18:41 Numer slajdu PowerPoint
|
|
|
Cześć, przygotowuję automatyczną aktualizację wykresów i innych obiektów z plików excel do prezentacji PowerPoint. Okazało się ze podany w widoku numer slajdu 1,2,3 nie pokrywa się z nazwą tego slajdu. Np. Slajd pierwszy to Slide6, a slajd trzeci w kolejności to Slide2. W kodzie VBA rozpisuje niektóre polecenia korzystając z tej nazwy slajdu. Niestety nie moge znaleźć miejsca w którym mogę to sprawdzić. Czy istanieje opcja dzięki której mogę widzieć jaka jest nazwa slajdu?
Pozdrawiam i dziękuję za pomoc. |
|
 | ID posta:
397996
|
|
|
 |
|
|
|
|
Artik 
Wersja: Win Office 365
Pomógł: 3092 razy
Posty: 10242
|
| Wysłany: 10-01-2021, 19:48
|
|
|
Poprosimy o pliki poglądowe. Skąd mamy wiedzieć jak to robisz i co faktycznie jest w nich zawarte?
Artik |
_________________
Persistence is a virtue in the world of programming. |
|
 | ID posta:
398002
|
|
|
|
|
|
|
Skubana
Starszy Forumowicz
Wersja: Win Office 365
Posty: 31
|
| Wysłany: 17-01-2021, 12:18
|
|
|
Niestety jako przykłąd nie można zamieścic prezentacji power point. Wyświetla się komunikat że "Rozszerzenie pptxm, pptm jest niedozwolone". Kod vba mam wpisany w prezentacji. Gdy chce np. zaktualizować tytuły niektórych slajdów używam polecenia
| Kod: | ActivePresentation.Slides("Slide2").Shapes.Range(Array("Title 1")).TextFrame.TextRange.Text = EngMonthLong & " " & Format(Now, "yyyy")
|
i powoduje to w tym przypadku zmianę tytułu na slajdzie pierwszym w kolejności, w kodzie podana jest jednak nazwa "Slide2" ponieważ okazało się ze tak się ten slajd nazywa. Natomiast dowiedziałam sie o tym poprzez wpisywanie Slide1 , Slide2... i sprawdzanie czy kod podmienił nazwy tam gdzie trzeba. W oryginalnej prezentacji slajdów jest wiele i takie sprawdzanie bedzie uciążliwe. Czy istnieje jakaś opcja albo wyświetlenie informacji w której dowiem sie jak są nazywane slajdy ?
Pozdrawiam i dziękuję za pomoc. |
|
| ID posta:
398467
|
|
|
|
|
|
marzatela 
Excel Expert
Zaproszone osoby: 309
Pomogła: 464 razy
Posty: 2560
|
| Wysłany: 17-01-2021, 12:48
|
|
|
| Zzipuj prezentację i wstaw ją w takim formacie. |
_________________
marzatela
http://www.szultaset.pl |
|
| ID posta:
398470
|
|
|
|
|
|
Skubana
Starszy Forumowicz
Wersja: Win Office 365
Posty: 31
|
| Wysłany: 17-01-2021, 13:12
|
|
|
W załączniku przykład
Presentation2.zip
|
 Pobierz Plik ściągnięto 4 raz(y) 39.38 KB |
|
|
| ID posta:
398472
|
|
|
|
|
|
Artik
Wersja: Win Office 365
Pomógł: 3092 razy
Posty: 10242
|
| Wysłany: 17-01-2021, 14:08
|
|
|
| Skubana napisał/a: | | Niestety jako przykłąd nie można zamieścic prezentacji power point. Wyświetla się komunikat że "Rozszerzenie pptxm, pptm jest niedozwolone" |
Od teraz już można.
Poniższe makro w MsgBox-ie wyświetli Ci w kolejności występowania nazwy slajdów. Zajrzyj też do okna Immediate. | Kod: | Sub ListujSlajdy()
Dim sld As Slide
Dim strNames As String
Dim i As Long
For Each sld In ActivePresentation.Slides
i = i + 1
strNames = strNames & i & ") " & sld.Name & vbLf
Next sld
Debug.Print strNames
MsgBox strNames
End Sub |
I jeszcze modyfikacja: | Kod: | Sub ListujSlajdy_2()
Dim sld As Slide
Dim strNames As String
Dim i As Long
For Each sld In ActivePresentation.Slides
i = i + 1
strNames = strNames & sld.SlideID & ") " & sld.Name & vbLf
Next sld
Debug.Print strNames
MsgBox strNames
MsgBox "Slajd nr 2 ma nazwę:" & vbLf & ActivePresentation.Slides(2).Name
MsgBox "SlideID = 259" & vbLf & "Nazwa slajdu: " & ActivePresentation.Slides.FindBySlideID(259).Name
End Sub |
Tak więc do określonego slajdu możesz odwoływać się na 3 sposoby: przez jego nazwę, przez indeks (kolejność występowania) lub przez SlideID.
Artik |
_________________
Persistence is a virtue in the world of programming. |
|
| ID posta:
398479
|
|
|
|
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
|
Dodaj temat do Ulubionych
Wersja do druku
|
 |
Strona używa plików cookies.
Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe
|
Regulamin
