Application.Dialogs(xlDialogInsertHyperlink).Show

[safe]

Beste forumleden,

Ik heb in mijn Excelbestand een macro waarmee ik o.a. pasfoto's van collega's in mijn werkblad zet dmv een hyperlink.
Ik maak gebruik van " Application.Dialogs(xlDialogInsertHyperlink).Show " , wat overigens goed werkt.

Telkens als ik een nieuwe foto wil toevoegen moet ik in deze applicatie steeds naar de map scrollen waarin de foto,s staan opgeslagen.
Gezien ik enkele mappen verder ben wil ik dit eigenlijk besparen door deze applicatie een andere standaard map toe te wijzen.
Het opent telkens de map waarin het Excelbestandje staat.. ( ik weet dat het dan snel is opgelost door het Excelbestandje in de fotomap te plaatsen, maar helaas wil dat niet ivm andere macro's en instellingen )

Ik heb het internet afgezocht en heb enkele antwoorden gevonden die helaas niet voor mij werken.
Voorbeelden daarvan zijn :

Application.Dialogs(xlDialogInsertHyperlink).Show ("D:\map\map\map\map")

Of,

CHdir D:
CHdir D:\map\map\map\map

( Deze bovenstaande heb ik in diverse vormen geprobeerd )

Ik maak gebruik van Office 2010 onder Windows 7 Prem.

Kan het eigenlijk wel met Office 2010 ?
Iemand bekend met dit probleem?

Alvast bedankt !

Grtz, Safe

 

[Warme bakkertje]

Standaard kan je dit niet instellen, maar op onderstaande link een workaround.
http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Q_22048774.html

 

[edmoor]

Eigenlijk ben je dus op zoek naar een standaard pad om mee te geven en een hyperlink naar het bestand in te voegen. Probeer eens het volgende:

Sub InsHyperLink()
    Dim hprFile As String
    ChDrive "D:\"
    ChDir "\map\map\map\map"
    
    hprfile = Application.GetOpenFilename
    With Worksheets(ActiveSheet.Index)
      .Hyperlinks.Add _
      Anchor:=.Range(ActiveCell.Address), _
      Address:=hprfile, _
      TextToDisplay:="Link tekst"
    End With
End Sub

In de 2 regels onder Dim geef je dan de standaard schijf en standaard pad in. Voor de Application.GetOpenFilename werken de ChDrive en ChDir namelijk wel waarbij je dan eventueel ook nog aan kunt geven welke bestandstypen moeten worden getoond.

Application.GetOpenFilename("Foto's (*.jpg), *.jpg")

De parameter TextToDisplay is overigens niet verplicht maar die zou je kunnen gebruiken om alleen de naam van het bestand te tonen en zo de zichtbare lengte van de link te beperken tot alleen het nodige.

 

[safe]

Heren bedankt !

@Warme bakkertje: Ik heb de workout bekeken maar ik vind mijn toolsmenu niet in de hyperlink dialog box. (misschien niet meer van toepassing onder 2010?)

@Edmoor : Je code werkt zoals ik het nodig had.

Beiden bedankt voor jullie input !

Grtz,
Safe