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