habe folgendes Problem:In einer Listbox werden Hyperlinks angezeigt und dieser wird mit einem Button geöffnet - Anzeige als Ordnerstruktur. Dies funktioniert einwandfrei hier der Code
Private Sub cmdJPGREIHE_Click()
'Link in JPGREIHE-Spalte öffnen
Dim Zeile As Long
Dim Zelle As Range
Dim JPGREIHEFile As String
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
ActiveWorkbook.FollowHyperlink JPGREIHEFile 'öffnen in Ordnerstruktur
End If
End With
End Sub
Mein Wunsch wäre die Bilder gleich in einer Multipageanzeige zu öffnen habe auch ein Beispiel gefunden hier der Code
Option Explicit
'Pfad
Const strPfad = "C:\Pfad anpassen\Test\Bilder\"
Private Sub UserForm_Initialize()
Dim strDatei As String
Dim i As Integer
Dim i_Anz As Integer
i_Anz = Me.mlt_Bilder.Pages.Count
i = 0
strDatei = Dir(strPfad & "*.jpg")
While strDatei ""
If i_Anz - 1
ich schaffe es leider nicht die beiden zusammenzuführen mit dem Ziel bei Betätigung des Button dass die Multipageanzeige sofort kommt.Es wäre sehr nett wenn mich jemand unterstützen könnte.
Vielen Dank im voraus
Richard