Excel 2013 Bild einfuegen
16.06.2014 15:18:48
hp
Liebes Forum,
mit Excel 2010 konnte ich ueber einen Button mit Script ein Bild einfuegen.
------------------------------------------
Private Sub CommandButton1_Click()
Range("C6").Select
On Error Resume Next
Dim ObjektDLG As Dialog
Set ObjektDLG = Application.Dialogs(xlDialogInsertPicture)
ObjektDLG.Show
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 150
Selection.ShapeRange.Width = 200
Selection.ShapeRange.Rotation = 0#
End Sub
-----------------------------------------
Mit der Excel Version 2013 versucht er Online Bilder zu finden. Das nervt.
Welchen Zusatz muss ich in das Script einfuegen, damit er nur Bilder auf meinem Desktop sucht?
Vielen Dank im Voraus fuer Tipps und Loesungen!