Public Sub Beispiel()
Call ActiveSheet.Shapes.AddPicture(Filename:="G:\Eigene Dateien\Eigene Bilder\014.tif", _
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
Left:=Range("H3").Left, Top:=Range("H3").Top, _
Width:=Range("H3:K16").Width, Height:=Range("H3:K16").Height)
End Sub
Option Explicit
Public Sub InsertPicture()
Dim objFileDialog As FileDialog
Dim objShape As Shape
Set objFileDialog = Application.FileDialog(fileDialogType:=msoFileDialogFilePicker)
With objFileDialog
.AllowMultiSelect = False
With .Filters
If .Count > 0 Then Call .Delete
Call .Add(Description:="Bilder", Extensions:="*.bmp,*.jpg,*.jpeg,*.gif,*.tif,*.tiff,*.png")
End With
.InitialFileName = "G:\Eigene Dateien\Eigene Bilder\"
If .Show Then
For Each objShape In ActiveSheet.Shapes
With objShape
If .Type = msoPicture And .TopLeftCell.Address = "$H$3" Then Call .Delete
End With
Next
Call ActiveSheet.Shapes.AddPicture(Filename:=.SelectedItems(1), _
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
Left:=Range("H3").Left, Top:=Range("H3").Top, _
Width:=Range("H3:K16").Width, Height:=Range("H3:K16").Height)
End If
End With
Set objFileDialog = Nothing
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen