Supportnet / Forum / Textverarbeitung
Mehrere Grafiken gleichzeitig in Word einfügen???
Frage
Hallo,
ich möchte in ein Word97 Dokument, mehrere Grafiken auf einmal einfügen. Leider geht dies nicht.
Für Excel habe ich ein Makro gefunden. Da funktioniert es.
hier dsa Makro:
Sub GrafikDateienEinfuegen()
Dim ZuOeffnendeDatei
Dim isGrafik As Boolean, i As Long
On Error Resume Next
ZuOeffnendeDatei = Application.GetOpenFilename( _
, , "Grafikdateien", , True)
With Sheets("Tabelle1")
For i = 1 To UBound(ZuOeffnendeDatei)
isGrafik = True
Select Case LCase(Right$(ZuOeffnendeDatei(i), 3))
Case "jpg"
Case "gif"
Case "bmp"
Case Else
isGrafik = False
End Select
If isGrafik Then
.Pictures.Insert ZuOeffnendeDatei(i)
End If
Next
End With
End Sub
Kenn jemand so etwas für Word oder hat eine andere Idee???
Für jede Hilfe wäre ich dankbar.
Liebe Grüße, Elke
Antwort 1 von poorfirele
eine direkte möglichkeit kenne ich in word auch nicht, daher trick17.
im explorer die entsprechenden bilder markieren, kopieren und im entsprechenden word-dokument einfügen.
gerade ausprobiert und funktioniert bei mir mit 6 bildern untwer msword 97
im explorer die entsprechenden bilder markieren, kopieren und im entsprechenden word-dokument einfügen.
gerade ausprobiert und funktioniert bei mir mit 6 bildern untwer msword 97