Hallo Zusammen...
Ich benutze ein Userform um ein Bild in einem Positionsrahmen zu platzieren, was auch ohne weiteres funzt. Leider ist mir aufgefallen, wenn bereits ein Bild im Positionsrahmen ist und ich über mein Userform ein neues einsetzen will, wird das neue Bild hinter das andere gelegt. Wie kann ich den Positionsrahmen leeren, bzw. das Bild welches enthalten ist löschen bevor ich es neu fülle?
Code: |
Private Sub FotoAuswahl_Click()
Dim bild As Word.InlineShape
Dim targetRange As Range
Dim oFileDialog As FileDialog
Set oFileDialog = Application.FileDialog(msoFileDialogFilePicker)
Dim w%, h%
oFileDialog.Filters.Clear
oFileDialog.Filters.Add "Nur Bilddateien", "*.JPG", 1
oFileDialog.Title = "Bitte eine Datei auswählen"
oFileDialog.ButtonName = "einfügen"
oFileDialog.AllowMultiSelect = False
oFileDialog.InitialFileName = "C:\Eigene Bilder" 'hier kann Pfad und Dateiname vorgegeben werden
If oFileDialog.Show = True Then
h% = ActiveDocument.Frames(1).Height
w% = ActiveDocument.Frames(1).Width
Set targetRange = ActiveDocument.Frames(1).Range ' Bilder in Positionsrahmen einfügen
targetRange.Collapse Direction:=wdCollapseEnd
Set bild = targetRange.InlineShapes.AddPicture(FileName:=oFileDialog.SelectedItems(1), _
LinktoFile:=False, _
SaveWithDocument:=True)
With bild
.Width = w%
.Height = h% '.Height / faktor
End With
'
End If
End Sub |
|