Bild einfügen - funktioniert
06.09.2005 16:01:13
Anita
Ich möchte ein BIld an einer bestimmten Stelle einfügen und dann zuschneiden.
Hab nun die ganze Zeit an meinem Code herumgefeilt.
Funktioniert aber nicht.
Kann mir jmd. den Fehler sagen oder einen alternativen COde sagen?
VIelen Dank an alle
Grüß Anita
Private Sub CommandButton1_Click()
Dim varRetVal As Variant
Dim n As Integer
Dim pic As Shape
Dim X_ As Integer, Y_ As Integer
varRetVal = Application.GetOpenFilename( _
FileFilter:="Bilddateien (*.jpg), *.jpg", _
Title:="Eine oder mehrere Dateien zum Öffnen auswählen", _
MultiSelect:=True)
If Not IsArray(varRetVal) And varRetVal = "Falsch" Then Exit Sub
X_ = 0 'links
Y_ = 0 'oben
For n = LBound(varRetVal) To UBound(varRetVal)
ActiveSheet.Pictures.Insert varRetVal(n)
Set pic = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
With pic
.LockAspectRatio = msoTrue
.Height = 318.75
.Width = 425.25
.Left = X_
.Top = Y_
End With
If X_ = 0 Then
X_ = 430
Else
X_ = 0
Y_ = Y_ + 385
End If
Next
End Sub