Liebe Excelgemeinde,
ich bin mit meinen bescheidenen Wissen am Ende und bitte Euch um Unterstützung.
Hintergrund: iIn der Tabelle1 werden mit einer UF verschiedene Unterlagen als Hyperlink abgespeichert,u.a. auch Ordner mit mehreren Bildinhalten (jpeg).
Von Tabelle1 wird über einen Button die UF2 geöffnet und über Comboboxen der Hyperlink gesucht. Wenn gefunden wird über einen Button (JPG Reihe)folgender Code aktiviert.
Private Sub cmdJPGREIHE_Click()
'Link in JPGREIHE-Spalte öffnen
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim wksData As Worksheet
Dim lngIndex As Long
Dim Zeile As Long
Dim Zelle As Range
Dim JPGREIHEFile As String
Set wksData = ActiveSheet '// auf Verdacht nachdekl. ....
With Me.ListBox1
If .ListIndex -2 Then
Zeile = .List(.ListIndex, .ColumnCount - 1)
Set Zelle = wksData.Cells(Zeile, 10) 'Zelle mit JPGREIHE-Hyperlink
JPGREIHEFile = Zelle.Hyperlinks(1).Address
Set objFSO = CreateObject(Class:="Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(JPGREIHEFile)
For Each objFile In objFolder.Files
If objFile.Type = "JPEG-Bild" Then
With UF_Bildreihe.mlt_Bilder
For lngIndex = 0 To .Pages.Count - 1
With .Pages(lngIndex)
If .Picture Is Nothing Then
.Caption = objFile.Name
Set .Picture = LoadPicture(Filename:=objFile.Path)
Exit For
End If
End With
Next
If lngIndex = .Pages.Count Then _
Set .Pages.Add(bstrCaption:=objFile.Name).Picture = _
LoadPicture(Filename:=objFile.Path)
End With
End If
Next
Set objFSO = Nothing
Set objFolder = Nothing
If Not UF_Bildreihe.Visible Then Call UF_Bildreihe.Show(vbModeless)
End If
End With
End Sub
Von dieser UF2 wird die UF_Bildreihe geöffnet(Multipage) jedoch keine Bilder geladen.Es wäre sehr nett wenn mich jemand unterstützen würde.
Gruss Richard