fotoverzameling digitaliseren omgekeerd

[hazesoft]

Geachte Excelkenners,

De topic fotoverzameling digitaliseren is helemaal gereed. De fotobestanden worden keurig van de harddisk gelezen.

De directorystructuur wordt weergegeven inclusief de naam van de foto, bv.
in A45 staat G:\digitale-foto's\natuur\paddenstoel-45.jpg

Dit wordt daarna als volgt automatisch over 2 kolommen verdeeld als:
in A45 staat G:\digitale-foto's\natuur\
in B45 staat paddenstoel-45.jpg

Nu vraag ik mij af of het volgende ook mogelijk is:
Wanneer ik met de muis op B45 klik, wordt de Verkenner of TotalCommander opgestart en staat de muiswijzer op de betreffende foto.

Volgens mij is dit de ultieme uitdaging! Ik ga eens rondsnuffelen.

 

[danny147]

Beste hazesoft

Misschien vind je hier je antwoord.

Groetjes Danny. :thumb:

 

[hazesoft]

Misschien vind je hier je antwoord.

Ik wil het wel graag vanuit mijn bestaande Excelbestand kunnen danny.

 

[trucker10]

Hans het eerste waar ik dan aan denk is een soort

Application.FollowHyperlink

Google eens even op dit

 

[hazesoft]

Ben ik mee bezig Daniël.
Heb o.a. dit in elkaar geprutst:

Public Sub Foto()
Dim X
X = "G:\Digitale-fotos\Tuin\tuin-1.jpg#"
Application.FollowHyperlink X
End Sub

Werkt natuurlijk nog niet. Zou ook te mooi zijn.

 

[hazesoft]

Door deze macro kan ik wel naar de harddisk en een bestand selecteren.

Public Sub Foto2()
NewFN = Application.GetOpenFilename(FileFilter:="Foto Files (*.jpg), *.jpg", Title:="Selecteer een file")
If NewFN = False Then
' indien annuleren
Exit Sub
Else
Workbooks.Open Filename:=NewFN
End If
End Sub

De foto wordt ingeladen in Excel en dat geeft bagger.
Hij zou dus eerst een foto-applicatie moeten opstarten.

 

[hazesoft]

En ..........

Public Sub Foto3()
Dim Pad As String
Pad = "D:\grafisch\ACDsee\ACDS32.exe\ G:\Digitale-fotos\Tuin\tuin-1.jpg"
Application.FollowHyperlink Pad
End Sub

......... werkt ook niet.

 

[trucker10]

Hans , maak van je data hyperlinks via deze code

sub hyperlink ()
intEndRow = 5400 ' pas deze aan aan jouw aantal 
For intRow = 2 To intEndRow
strCell = "A" + Trim(Str(intRow))
If Range(strCell) <> "" Then
strLink = Range(strCell).Value
ActiveSheet.Hyperlinks.Add Anchor:=Cells(intRow, "F"), Address:=strLink, TextToDisplay:=strLink
End If
Next
end sub

 

[popipipo]

Dit bestandje uit mijn archief gespit.
Misschien heb je er wat aan.

 

[hazesoft]

Dit bestandje uit mijn archief gespit.
Misschien heb je er wat aan.

Dank je popipipo het werkt!