|
Nun hat es geklappt.
Bilder werden im Userform aus einem Verzeichnis eingelesen und die markierten Bilder werden in einem Vorschaufenster angezeigt.
Der Code hierfür:
SubBilderl()
PicVerz = "Pfad zum Bilderverzeichnis"
Dim Datei
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
For Each Datei In FSO.getfolder(PicVerz).Files
Me.ListBox4.AddItem Datei.Name
Next
End Sub
Dann werden die Bilder sortiert:
Private Sub SortierenListbox()
Dim intI As Integer
'
If ListBox4.ListCount > 0 Then
ReDim strArray(0 To ListBox4.ListCount - 1) As String
'
For intI = 0 To ListBox4.ListCount - 1
strArray(intI) = ListBox4.List(intI)
Next
WordBasic.SortArray strArray()
'
ListBox4.List() = strArray
End If
End Sub
Und schließlich werden die Bilder in das Dokument eingesetzt:
Sub Dateneinsetzen()
[...]
'Bilder Anlage erstellen
Documents.Add (dir1 & "anlage.dot")
For i = ListBox4.ListIndex To 0 Step -1
With Selection
.GoTo What:=wdGoToBookmark, Name:="bild"
.Collapse direction:=wdCollapseEnd
End With
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.InlineShapes.AddPicture FileName:= _
"\\NAS-SERVER\marco\ibb\originalbilder\" & Year(Now) & "\" & TextBox1.Value & "\" & ListBox4.List(i), LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Next i
[...]
End Sub
Allen Ratgebern herzlichen Dank für die Hilfe.
Marco
|