[a665321]

#vba #powerpoint

jest jakis sposób na przesunięcie aktywnego slajdu na sam koniec? znalazlem takie polecenie:

Sub move()
ActivePresentation.Slides(3).MoveTo ToPos:=1
End Sub

jak to zmienic?

[d.....o]

@a665321 może policz ile masz slajdów i podstaw za 1

[d.....o]

@a665321 może policz ile masz slajdów i podstaw za 1

[a665321]

@dluto liczba slajdów się zmienia u mnie

[d.....o]

ActivePresentation.Slides(3).MoveTo ToPos:=ActivePresentation.Slides.Count

@a665321 sprawdz czy to zadziala
Ja nie sprawdze bo nie jestem przy kompie ale tak strzelam

[a665321]

ActivePresentation.Slides(3)

@dluto: czy to nie oznacza że przesuwa 3 slajd?

[d.....o]

@a665321 tak
A chodzi o aktywny, to musiałbym sprawdzić.
Nie ma jakiegoś ActiveSlide?

[d.....o]

@a665321: proszę

Sub move()
ActivePresentation.Slides(Application.ActiveWindow.View.Slide.SlideNumber).MoveTo ToPos:=ActivePresentation.Slides.Count
End Sub

[a665321]

@dluto: Dziękuję pięknie, działa! ( ͡° ͜ʖ ͡°)

[a665321]

@dluto: dzisiaj zauwayłem że wystarczy nacisnąć ctrl+shift+trzałkę w dól i przenosi na sam dół slajd :s