hi, habs jetzt so hinbekommen
Private Sub Bild_laden_Click()
Dim i As Range
Set i = Range("k2")
Dim bild As Picture
Dim b As String
b = Application.GetOpenFilename
Cells(i + 4, 9).Select
On Error GoTo fehler
If b = "falsch" Then
Cells(i + 4, 9).Clear
Else
Image1.Picture = LoadPicture(b)
Image1.PictureSizeMode = fmPictureSizeModeZoom
Set Picture = ActiveSheet.Pictures.Insert(b)
With Picture
.Left = Sheets("rechnungen").Cells(i + 4, 9).Left
.Height = Sheets("rechnungen").Cells(i + 4, 9).Height
.Width = Sheets("rechnungen").Cells(i + 4, 9).Width
.OnAction = "klein"
End With
fehler:
End If
End Sub
das bild wird jetzt gleichzeitig in der imagebox und in eine zelle eingefügt.
jedoch hab ich jetzt das problem das die fetten befehle nicht mehr funktionieren.. eigenschaft unzulässig..
wenn ich nur die reine einfügen in die zelle teste dann funktioniert der fette bereich auch..
woran kann das liegen.. ich denk es liegt an dem namen "picture" der für beide befehle genutzt wird
|