[vaxx]

Jest tu ktoś into #vba? Szukam po guglu, ale coś słabo mi to wychodzi. Potrzebuję stworzyć przycisk w #microsoft #powerpoint, po którego naciśnięciu wyskoczy mi "save as" okno.

Dorzucę jeszcze #excel

[Polinik]

@vaxx: Ale nie wiesz jak wstawić przycisk, czy jaki kod pod niego podpiąć?

[tony_rogalik]

@vaxx:

Set NewBook = Workbooks.Add 
Do 
 fName = Application.GetSaveAsFilename 
Loop Until fName <> False 
NewBook.SaveAs Filename:=fName

[E.....a]

@vaxx: W lewym górnym rogu okna masz taki trójkącik z kreseczką jak go klikniesz to wybierz More Commands, potem na lewej liście wybierz Save As i kliknij Add>>, potem OK. i już makro nie potrzebne.

[matti05]

@vaxx: http://www.vbaexpress.com/forum/showthread.php?2946-Solved-Save-as-dialog-box&p=24284&viewfull=1#post24284

[E.....a]

@vaxx: Ewentualnie używaj F12 jak "wszyscy".

[dolOfWK6KN]

@tony_rogalik: Po co pętla do zapisania aktywnego pliku?

[vaxx]

@Polinik: @tony_rogalik: @Eswemenasja: @matti05: @zieloneKolanoApokalipsy: problem w tym wszystkim taki, ze najlepiej gdyby mi to dzialalo w "powerpoint show". Propozycja @matti05 dziala, ale tylko kiedy zapisane jest jako .pptm. Chcialbym to otwierac od razu w full screenie, by mi ludzie za bardzo nie kombinowali.

[matti05]

@vaxx: jak zapisałem jako .ppsm to działa jak trzeba

[vaxx]

@matti05: zapisywalem jako .ppsx. No to problem solved, bo dziala. Jeszcze musze pomyslec czy tak to zostawic, bo wypluwa komunikat o "security alert" (macros & activex), a tego pewnie nie obejde :(

[matti05]

@vaxx: to są raczej ustawienia lokalne programu, więc może być problem

[vaxx]

@matti05: prawdopodobnie jakieś "firmowe" zabezpieczenia :)