Vložení obrázku – makkro

Dobrý den,

nejsem až tak odborník, ale potřeboval bych poradit s makrem na vkládání obrázku.

Vkládám obrázek ze schránky a měním jeho velikost. Pokud není ve schránce obrázek, tak se při úpravě velikosti zobrazí visualbasicová chybová hláška a zastaví se to na ní.

Lze to nějak ošetřit, aby se akce neprovedla, když to nebude obrázek?

Sub Makroobr01()
ActiveSheet.Paste
Selection.ShapeRange.ScaleHeight 0.65, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Name = Now
End Sub

Děkuji za pomoc,

Jiří

Rate this post

Napsat komentář

Vaše e-mailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *