Obrázky v Excel 2003 dotaz a Windows mobile 6.1 Vyřešeno

[sutrserpa]

Mám několik dotazů ohledně mého souboru Herbář.
http://www.uloz.to/1054398/herbar-14.12.08.exe

Umísťuji jednotlivé listy ze souboru do PDA a je nutné list upravit tak, aby měl přijatelnou velikost. Já mohu obrázky pouze hromadně zkomprimovat
Jedná se mi o odstranění sloupce s obrázky, tak aby se smazaly i obrázky ( je jich 3 500 a není možné je smazávat jednotlivě)
případně odstranění obrázků hromadně tak, aby sloupec, ve kterém jsou obrázky,zůstal.

Jestli se dají zobrazit obrázky v Excelu mobile ve Windows mobile 6.1, zobrazují se mi jen v Wordu mobile.

Pak bych potřeboval , aby mi mnou vytvořené makra v PC v původním souboru neděsily další uživatele hláškou " Soubor obsahuje makra" ( v tomto souboru z výše jmenovaných důvodů nejsou)
Sutrserpa

[Reklama]

[mike007]

Obrázky smaž tímto makrem:

Sub smazat_obrazky()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

Pokud nechceš, aby se tvým uživatelům zobrazovala hláška o výskytu maker v dokumentu, stačí nastavit nízké zabezpečení (Nástroje --> Makro --> Zabezpečení --> a označit možnost Nízké)

Co se týče toho Excelu v PDA, netuším. Mám sice smartphone s Office, ale nevyužívám této možnosti.

[sutrserpa]

Nefunguje.

Když ho spustím

tak mi hlási Run-time error '7'
Out of memory

Není to tím, že jsou v některých hypertextové odkazy?
To by se mi taky velmi hodilo je hromadně odstranit, ale jen z obrázků.

Vyzkoušel jsem to se čtyřmi obrázky, tam to funguje, musí to být v tom počtu obrázků.

A co se týká toho nastavení urovně zabezpečení, to vím, ale neví to ti, co si to stáhnou ode mně.
Potřeboval bych makra nějak označit, že jsou bezpečná.

[mike007]

Njn, smazat 3500 obrázků je náročný proces i pro makro
Tohle makro by si s tím mělo poradit. Je možné ale, že bude pracovat dlouho než to všechno pomaže...

Sub smazat_obrazky2()
Application.ScreenUpdating = False
Dim DrObj
Dim Pict
Set DrObj = ActiveSheet.DrawingObjects
For Each Pict In DrObj
Pict.Select
Pict.Delete
Next
Application.ScreenUpdating = True
End Sub

Makra nelze označit jako bezpečná. Uživatel si SÁM musí určit, jestli se tvá makra mohou v jeho počítači spouštět nebo ne.

[sutrserpa]

Bohužel i tohle makro nejede

Run time error '1004'
Metoda třídy select Picture selhala

Možná by jen stačilo, aby se všechny obrazky jenom označily, smazat se pak dají ručně Delete

[mike007]

Divné. Právě jsem si v Excelu, ve verzi 2003 nechal natáhnout přes 7000 obrázků a obě makra si s nimi poradily...

[sutrserpa]

Stáni si soubor s obrázky z http://uloz.to/1161673/Byliny.rar
Oproti originálu jsou obrázky maximálně zkomprimované.
Snad už ta velikost bude dobrá, na míň už to nejde.

Pokus se odstranit hromadně i hypetextové odkazy, které v některých obrázcích jsou.
Dík

[mike007]

Dnes mám extrémně pomalý internet, tak doufejme, že se mi to podaří stáhnout.
Můžu mít na tebe malou otázku; Proč do dokumentu nafrkáš 3000 obrázků a pak je chceš smazat? Trochu zbytečná práce, ne?

[mike007]

Dokument je opravdu přecpaný. Tohle ti všechny obrázky na tuty promaže. Jestli ne, tak mě můžeš zastřelit.

Sub smazat_obrazky3()
ActiveSheet.Pictures.Delete
End Sub

[sutrserpa]

Musím dokument dostat do PDA, s obrázky je příliž velký a tudíž špatně otevřitelný, i když mám HTC Diamond.
I když obrázky zkomprimuji maximálně, má to 13 MB a obrázky neustále přibývají, asi 200 měsíčně.

Makro běží, super, dík
Vyzkoušej ještě ty hypertextové odkazy i tak smekám

[mike007]

Myslíš ty hypertextové odkazy ve sloupci D? Když myší označíš buňky s odkazy a zmáčkneš tlačítko Delete, tak se nesmažou nebo se ti jen nechce a plýtváš mým časem?

Sub odkazy()
Range("D5:D3282").Select
Selection.ClearContents
End Sub

[sutrserpa]

Ne, tyto odkazy tam musí samozřejmě zůstat. jedná se o odkazy vložené do obrázků ve sloupci C
V kterých jsou, to nevím, špatně se to zjišťuje.

A to makro pro sloupec D by se mi hodilo, pokud by se nesmazaly s odkazy i ty záznamy. Umísťuji dokument na internetu a Odkazy jsou lidem k ničemu. Odkazy fungují v kompetní databázi a ta má 4 GB. a ta se tam nedá dát. V takové případě bych je ostranil, aby to lidem nepsalo - Odkaz není platný.

Omlouvám se, že tě tak využívám. Když ty mi bezděčně přihraješ další problém k vyřešení.