seid Excel 2010 zickt "Pictures.Insert" etwas rum. Probiere es mal so:
Code:
Option Explicit
Sub Main()
Dim strPicName As Variant
Dim dblScale As Double
Dim objShape As Shape
On Error Resume Next
ActiveSheet.Shapes("picto").Delete
Err.Clear
On Error GoTo Fin
strPicName = "C:\Temp\Bild1.jpg"
Select Case Right(strPicName, 3)
Case "bmp", "jpg", "tif", "gif", "bmp"
Application.ScreenUpdating = False
With Cells(3, 3)
Set objShape = ActiveSheet.Shapes.AddPicture( _
strPicName, msoFalse, msoTrue, .Left, .Top, -1, -1)
objShape.Top = .Top + 1
objShape.Left = .Left + 1
dblScale = WorksheetFunction.Min(.Width / objShape.Width, .Height / objShape.Height)
objShape.Height = objShape.Height * dblScale
objShape.Name = "picto"
End With
Case Else
MsgBox "Sie haben kein gültiges Bild ausgewählt"
End Select
Fin:
Set objShape = Nothing
Application.ScreenUpdating = True
If Err.Number <> 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
