Excel Bild

Forumthread: Excel Bild

Excel Bild

07.08.2002 16:23:31

MacWale

Hallo

wie verkleiner ich ein automatisch eingefügtes Bild mit Makros?? Die Bilder sind alle unterschiedlich groß!! Wie bekomme ich das Bild auf eine bestimmte Breite und eine bestimmte Höhe??

Bitte mit Beispiel!!
Danke im Vorraus!!

MFG MacWale

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Excel Bild

07.08.2002 21:57:04

L.Vira

Re: Excel Bild

07.08.2002 21:57:04

L.Vira

Option Explicit
Const Breite As Double = 50
Const Höhe As Double = 30
Sub Bildgröße_ändern()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
''Typ 13 sind Bilder(BMP,GIF,JPG usw.)
If Sh.Type = 13 Then
Sh.Width = Breite
Sh.Height = Höhe
End If
Next
End Sub

Forumthread: Excel Bild

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread