Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
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

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

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