Thema Datum  Von Nutzer Rating
Antwort
Rot Word VBA Positionrahmen füllen
 04.11.2013 16:04:52 benscha
NotSolved

Ansicht des Beitrags:
Von:
benscha		 Datum:
04.11.2013 16:04:52		 Views:
1931		 Rating:
     
Antwort:
  Ja
Thema:
Word VBA Positionrahmen füllen
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Word VBA Positionrahmen füllen
 04.11.2013 16:04:52 benscha
NotSolved