MS Excel

Ahoj.

Chtěl bych vás poprosit o pomoc s kompresí obrázků ve více sešitech.
Mám ve složce 30 sešitů a každý z nich obsahuje několik fotek, které tam jejich tvůrce vložil. Bohužel bez ohledu na jejich rozlišení a velikost, takže zmíněné sešity mají nyní velikost i desítky MB.
Chtěl jsem si makrem každý sešit otevřít, použít funkcí komprese obrázků a uložit.
Bohužel nevím, jakým příkazem ji vyvolat, ani jak ošetřit výběr obrázku, který má v každém dokumentu jiný název např.
ActiveSheet.Shapes.Range(Array("Picture 25")).Select
Pokusím se dodat sešit pro příklad.

Zaslat odpověď >

Palooo(14.1.2014 9:57)citovat#017248

umna v Excell 2010 ked dam compresiu obrazkou tak sa da nastavit pre vsetky naraz

inac by to slo aj makrom a to asi takto:
(pisem to cisto teoreticky)
Sub test()
For x = 1 To Sheets.Count
For y = 1 To Sheets(x).Shapes.Count
If Sheets(x).Shapes(y).Type = msoPicture Then
' Sheets(x).Shapes(y). = BlaCompres
End If
Next
Next
End Sub

Rozmy(21.1.2014 7:36)citovat#017376

Jasný, když otevřu nějaký sešit, kliknu na jakýkoliv obrázek, tak pak můžu zkomprimovat všechny obrázky najednou.
Nicméně já takových sešitů mám 50, každý obsahuje různý počet obrázků (fotek) a ty jsou v každém sešitu umístěny jinde.
Makro by mělo sešit otevřít, zkomprimovat všechny obrázky v něm, uložit a zavřít. A právě s tou kompresí si nevím rady....otevírání, ukládání apod. už dám.
Posílám jeden z dokumentů pro ilustraci.

Příloha: zip

17376_jeden-z-x.zip (229kB, staženo 21x)

Palooo(21.1.2014 10:15)citovat#017377

na nete som nasiel jeden postup ako komprimovat a resize obrazkov a prerobil som to na viac sheetov

skuste sa nato kuknut ci vam to vyhovuje?

pozn: to rozlisenie obrazku sa da zlepsit rovno v makre

Příloha: zip

17377_test.zip (251kB, staženo 66x)

Téma: Komprese obrázků ve více sešitech

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje