Bild einfügen aus gewünschtem Pfad
07.09.2005 09:35:26
Anita
Habe gestern dank Eurer Hilfe eine COde bekommen, mit dem ich ein Bild einfügen kann und an die richtige Stelle setze.
Allerdings wird immer der Pfad \Eigenen Dateien\ geöffnet.
Wie ist es möglich dass durch einen Zellbezug (zB A3, wo der Pfad drinnensteht, den gewünschten Pfad zur Bilderauswahl öffnen kann?
Da hätt´ich noch eine kleine Frage:
Ich möchte das Bild gerne mit einem Rahmen umfassen (leichte, schwarze Linie).
Hab das mit dem Makrorekorder versucht und in den Code eingefügt (Selection...) aber es funktioniert nicht?
Kann mir bitte jemand helfen?
DANKE
Anita
Private Sub CommandButton1_Click()
'Bild einfügen
Dim varRetVal As Variant
Dim n As Integer
Dim pic
Dim X_ As Integer, Y_ As Integer
varRetVal = Application.GetOpenFilename( _
FileFilter:="OBJEKTBILD (*.jpg), *.jpg", _
Title:="WÄHLE DAS GEWÜNSCHTE OBJEKTBILD", _
MultiSelect:=True)
On Error Resume Next
If varRetVal <> False Then
X_ = 30 'links
Y_ = 85 'oben
For n = LBound(varRetVal) To UBound(varRetVal)
Set pic = ActiveSheet.Pictures.Insert(varRetVal(n))
With pic
.LockAspectRatio = msoTrue
.Height = 523.5
.Width = 985.5
.Left = X_
.Top = Y_
End With
If X_ = 0 Then
X_ = 430
Else
X_ = 0
Y_ = Y_ + 385
End If
Next n
End If
End Sub