Grafiken einfügen
06.12.2003 13:10:30
AndreasS
habe ein Problem beim einfügen von Grafiken. Gibt es eine Möglichkeit Bilder mit vorgegebener Größe einzufügen. Habe bisher den Makrorekorder benutzt, aber da die Bilder unterschiedlich groß sind, ergeben sich für jedes Bild andere Größen, da bei den aufgezeichneten Makros immer nur ein Bild berücksichtigt wird. Wenn sich die Größe des Bildes ändert, habe ich mein Problem.
Hier mein Code:
Sub GrafikDateienEinfuegen2()
ActiveSheet.Unprotect "xyz"
Application.ScreenUpdating = False
'On Error GoTo fehler
Dim ZuOeffnendeDatei
Dim isGrafik As Boolean, i As Long
On Error Resume Next
Range("E18:H28").Select
ZuOeffnendeDatei = Application.GetOpenFilename( _
, , "Grafikdateien", , True)
With Sheets("Tabelle1")
For i = 1 To UBound(ZuOeffnendeDatei)
isGrafik = True
Select Case LCase(Right$(ZuOeffnendeDatei(i), 3))
Case "jpg"
Case "gif"
Case "bmp"
Case Else
isGrafik = False
End Select
If isGrafik Then
.Pictures.Insert ZuOeffnendeDatei(i)
auswahl
Makro6
'Selection.ShapeRange.ScaleHeight 0.64, msoFalse, msoScaleFromTopLeft
'Selection.ShapeRange.ScaleWidth 0.85, msoFalse, msoScaleFromTopLeft
End If
Next
End With
'fehler:
'MsgBox "Ein Fehler ist aufgetreten"
Application.ScreenUpdating = True
ActiveSheet.Protect "xyz"
End Sub
Im vorraus Danke für Eure Hilfe!
Gruß
Andreas