• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hyperlink via VBA bij onclick Picture

Status
Niet open voor verdere reacties.
R

Rommyke

Gebruiker
Lid geworden
29 mrt 2007
Berichten
357
Hoi allemaal ,


Op het moment heb ik als hyperlink in bv cell B4

Code: 
=HYPERLINK("C:\"&A4,"Foto")

Nu zou ik in kolom B een foto willen zetten ipv deze hyperlink .
Als ik op deze foto klik zou ik willen dat een bepaald map opent , deze map wordt bepaald door een getal(naam) in kolom A.

Op deze foto kan je ook manueel een hyperlink zette met een adress maar dit is niet de bedoeling

Ik zou i dit graag in een vba code willen hebben

Dus als ik op eender welke foto in kolom B klik wordt een map geopent met de naam die in kolom A staat .

Het kan dus wel zijn dat er in kolom B niet overal een foto staat en als je dus op deze cell klikt er niks gebeurd.

Iemand een idee ?

Groetjes

Romain
 

Bijlagen

Voor diegene die aan het meedenken zijn

Ik denk dat onderstaande codes misschien wel nuttig kunnen zijn

Code: 
Dim CurrentPositionOfCursor As Range
Dim X As Byte
Set CurrentPositionOfCursor = ActiveCell              ' voor het bepalen welke foto geklikt is ?

ActiveSheet.Hyperlinks.Add Anchor:=CurrentPositionOfCursor.Offset(X - 1, 0)


of ondestaande code kan er misschien ook in verwerkt worden

Code: 
HYPERLINK("C:\"&A4)

waarbij A4 een variable wordt met gebruik van CurrentpositionofCursor(activecell) en een verschuiving naar kolom A ?
 
Laatst bewerkt:
Je kunt een macro aan de foto hangen. Die moet je dan wel voor elke foto apart instellen, maar datzelfde geld ook voor een hyperlink.
Wellicht kan de functie INDIRECT ook nuttig zijn.

Heb je een klein voorbeeldje beschikbaar?
 
hoi allemaal ,

Ben er bijna uit denk ik .
Heb echter nog 1 probleem.

Als ik een foto invoeg en die foto zet ik bv in cell B3 .
Dan link ik deze foto met onderstaande macro .

Als ik nu op deze foto klik zou ook cell B3 geselecteerd moeten worden ??

Ik heb al geprobeerd met de foto te selecteren en " =B3 " ingegeven maar dit helpt niet .



Code: 
Public Function FileFolderExists(strFullPath As String) As Boolean

    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True

End Function

Code: 
 Sub Openen()

Dim Folder As String

Folder = ActiveCell.Offset(0, -1).Value
 
      If FileFolderExists("c:\" & Folder) Then
         Shell "explorer.exe C:\" & (Folder), vbNormalFocus
      Else
         MkDir ("c:\" & Folder)
         Shell "explorer.exe C:\" & (Folder), vbNormalFocus
      End If
 End If
End Sub
 
Heb het gevonden , de code is af :cool:

Voor de geintresseerde hieronder de code .

Code: 
Sub Openen()

 Dim Folder As String
 Dim shp    As Shape
     
     Set shp = ActiveSheet.Shapes(Application.Caller)
            shp.TopLeftCell.Select

      Folder = ActiveCell.Offset(0, -1).Value
 
      If FileFolderExists("c:\" & Folder) Then
         Shell "explorer.exe C:\" & (Folder), vbNormalFocus
      Else
         MkDir ("c:\" & Folder)
         Shell "explorer.exe C:\" & (Folder), vbNormalFocus
      End If
End Sub

Bedankt

Groetjes
Romain
 
Na een paar cosmetische ingrepen, krijg je:

Code: 
Sub Openen()

    Dim Folder As String, shp As Shape

    Set shp = ActiveSheet.Shapes(Application.Caller)
    Folder = "C:\" & shp.TopLeftCell.Offset(0, -1).Value
    
    If Not FileFolderExists(Folder) Then MkDir Folder
    
    Shell "explorer.exe " & Folder, vbNormalFocus
End Sub

Wigi
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan