< návrat zpět

MS Excel


Téma: Zmazat prezentaciu pri zatvoreni rss

Zaslal/a 26.8.2014 12:45

Ahojte,

Potrebujem poradit. Uz sa s tym hram asi 4hodiny a neviem nato doist ako nato.

chci urobit makro ktore pri skonceni prezentacii sa sam vymaze.

urobil som uz event ktory sa zapne pri skonceni aplikacii ale nedokazem pri tom evente tu prezentaciu vymazat.

Vedel by niekto ako nato???

posielam aj prilohu .... je tam event na closepresentation len treba to zapnut s makrom aStart

Příloha: zip21308_test.zip (27kB, staženo 20x)
Zaslat odpověď >

#021309
Jeza.m
Asi to nebude tak jednoduché smazat sebe sama :-)

Zkusím napsat jen co mě napadlo...
1) napsat makro jenž před ukončením prezentace vytvoří textový soubor, jehož obsahem bude VBS
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("D:\SCRIPT.VBS")

Tento pak uloží jako např. D:\SCRIPT.VBS

2) po vytvoření scriptu vytvořit novou naplánovanou úlohu s jednorázovým spuštěním cca za 5s. Tato naplánovaná úloha by měla spustit výše zmíněný script.
Naplánovanou úlohu vytvořit pomocí příkazu Shell a dále za použití parametrů viz. odkaz
http://msdn.microsoft.com/en-us/library/bb736357

Je to jen teoretické nasměrování, nikoliv kompletní řešení.
Třeba to půjde i snáze a bez vytváření scriptů či naplánovaných úloh, což by potěšilo i koncového uživatele :-). Mno ale momentálně mě nenapadá jak.

M@citovat
#021311
avatar
tak uz to nieje akutne

ale po miesaci sa k tomu vratim askusim tento sposob co ste navrhovali :)) aj ked verim ze tu sa do schtasks nedostanem .... ale to budu riesit az potom

dik za nakopnutie :)citovat
#021312
Jeza.m
koukám že jsem do toho scriptu sice dal mazání scriptu, ale ne té prezentace :-), ale na to určitě přijdete :-).

Ještě mě napadlo bez použití naplánované úlohy vytvořit VB script který v sobě bude mít zpoždění.
WScript.Sleep(5000)

ale pořád to je o tom že se vytváří nevyžádaný soubor, byť se pak maže.

M@citovat
#021315
avatar
Do toho tvého eventu vlož tuto

With ActivePresentation

If .Path <> "" And .ReadOnly Then

SetAttr .FullName, vbNormal
'SetAttr .FullName, vbReadOnly
'.Save
'.Saved = True
Kill .FullName

End If
End With


Bohužel kdy toto funguje je pokud prezentaci otevřeš s atributem "jen pro čtení" které musíš nastavit sám 8

Nepodařilo se mi presentaci uložit / nebo přimět s atributem jen pro čtení.citovat
#021316
avatar
Cmuch: to som tiez skusal ale nejak som s tym nepochodil :) zajtra ked budem v robote skusim este razcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje