Thema Datum  Von Nutzer Rating
Antwort
15.05.2014 14:44:32 Marco C. B.
NotSolved
15.05.2014 15:21:44 Gast90507
NotSolved
15.05.2014 15:50:43 Marco C. B.
NotSolved
15.05.2014 16:00:53 Gast64754
NotSolved
15.05.2014 19:24:56 Marco C. B.
Solved
Blau Bilder aus einem Ordner in einem Userform anzeigen
 17.05.2014 21:33:49 Marco C. B.
Solved

Ansicht des Beitrags:
Von:
Marco C. B.		 Datum:
17.05.2014 21:33:49		 Views:
954		 Rating:
     
Antwort:
 Nein
Thema:
Bilder aus einem Ordner in einem Userform anzeigen

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:

?
1
2
3
4
5
6
7
8
9
10
11
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
15.05.2014 14:44:32 Marco C. B.
NotSolved
15.05.2014 15:21:44 Gast90507
NotSolved
15.05.2014 15:50:43 Marco C. B.
NotSolved
15.05.2014 16:00:53 Gast64754
NotSolved
15.05.2014 19:24:56 Marco C. B.
Solved
Blau Bilder aus einem Ordner in einem Userform anzeigen
 17.05.2014 21:33:49 Marco C. B.
Solved