Stránka 1 z 1

Powerpoint - makro velikost - ořez - ostření obrázku

Napsal: 08 lis 2013 05:47
od MK_Vs
Dobrý den,

v Powerpointu 2010 potřebuji pomocí makra provést u vybraného nebo vybraných obrázků: - zmenšení na danou výšku; kompresi na 200 dpi s odstraněním ořezu; doodstření na 50%.

Chtěl jsem na změnu velikosti na 3cm použít

Kód: Vybrat vše

Sub Vyska_3()
'
On Error GoTo preskoc
Selection.ShapeRange.Height = 85.0393700787
GoTo zmeneno

preskoc:
MsgBox "Nic nevybrano"

zmeneno:

End Sub


Bohužel makro vůbec nefunguje. V excelu je průběh zcela v pořádku.
Další pokusy o přidání komprese s odstraněním ořezu + doostřením nedopali také dobře.

Můžete prosím poradit, jak by pro tento případ mělo makro vypadat?

Děkuji

MK

Re: Powerpoint - makro velikost - ořez - ostření obrázku

Napsal: 08 lis 2013 19:26
od cmuch
Ostření a komprese je popsána tu http://vbadud.blogspot.cz/2010/05/how-to-compress-pictures-in-excel-using.html
Nezkoušel jsem, s PP nedělám.

Velikost se nastavuje takto (vybraného obrázku)

Kód: Vybrat vše

Sub VelikostObrazku()

    With ActiveWindow.Selection.ShapeRange
        .Height = 85.1
    End With
End Sub