AW: Bild Größe an Zeile und Spalte anpassen
11.05.2022 14:22:14
Nepumuk
Hallo David,
klar:
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
Gruß
Nepumuk