PC-HELP.CZ

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

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.

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á.

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.

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

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...

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

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?

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

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

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

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í.