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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

MK_Vs
Level 2
Level 2
Příspěvky: 185
Registrován: červen 10
Pohlaví: Nespecifikováno
Stav:
Offline

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

Příspěvekod MK_Vs » 08 lis 2013 05:47

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

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod cmuch » 08 lis 2013 19:26

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


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Prezentace - powerpoint
    od majkl00 » 28 lis 2023 19:42 » v Kancelářské balíky
    5
    1881
    od majkl00 Zobrazit poslední příspěvek
    29 lis 2023 20:07
  • PowerPoint osekává zvuk při změně snímku
    od Venus » 12 úno 2024 16:35 » v Kancelářské balíky
    2
    1126
    od Venus Zobrazit poslední příspěvek
    13 úno 2024 16:57
  • Velikost ikon na hlavním panelu.
    od mmmartin » 15 říj 2023 19:16 » v Windows 11, 10, 8...
    4
    989
    od mmmartin Zobrazit poslední příspěvek
    16 říj 2023 16:41
  • Vaše doporučení na velikost monitoru
    od Tvrbar » 15 lis 2023 15:01 » v Vše ostatní (hw)
    16
    2913
    od Tvrbar Zobrazit poslední příspěvek
    22 lis 2023 14:56
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů