[Excel 2k2] hyperlink in commandbutton opent niet / wel

[kamstra]

Hoi,

Wellicht een known bug, of gewoon een stomme vraag..geen idee maar ik kan niet vinden wat er precies fout gaat...

Probleem:
Ik heb een excel file met een commandbutton. Aan deze commandbutton voeg ik een hyperlink toe naar een PDF bestand. Idee is dus om door te klikken op de button, de PDF opent.

Dat werkt prima in designmode, maar als excel niet in designmode is kan ik klikken wat ik wil, er gebeurt niks....enig idee hoe dat kan?

We hebben het hier over Excel 2002 SP3 trouwens.

Heb ook al geprobeerd om t met een macro te doen ipv hyperlink, maar dat is ook nog niet erg succesvol helaas.
code gebruikt:

code:

Private Sub Form_Load()

Process.Start("C:\mypdf.pdf")

   End

End Sub

Runapp werkte ook niet...kortom, ik doe iets fout, maar wat.

NB het liefst kom ik er gewoon achter hoe ik die commandbutton in "normal" mode aan de praat krijg aangezien dat de simpelste oplossing is, alternatief is uiteraard t VBA script.

Iemand een idee?

[Reptile209]

Waar heb je die hyperlink precies ingesteld in de knop, want dat zie ik niet helemaal voor me.
Als je op de knop klikt, 'klikt' hij dan wel, of staat hij per ongeluk op 'disabled'? Welke VBA hangt er aan de knop?

[kamstra]

Ik selecteer in designmode de knop, klik op add hyperlink, selecteer de PDF et voila, t werkt.
Alleen zodra ie uit designmode is kan ik wel op de knop klikken, en dan 'klikt' ie ook wel, maar er gebeurt gewoon niks.
T lijkt er trouwens ook op alsof ie die hyperlink dan uberhaupt niet ziet want bij mouseover op de knop blijft het gewoon een pijltje, terwijl in designmode t pijltje verandert in een handje.

de code die erachter lijkt te hangen is puur:

code:

Private Sub CommandButton1_Click()

End Sub

[Noxious]

Is het niet het security level voor macro's wat te hoog staat?

[kamstra]

Nope, want alle andere 'echte' macro's in t document werken prima..

[Reptile209]

Volgens mij probeer je nu een command-button van een hyperlink te voorzien op een manier die alleen voor tekst bedoeld is (en niet voor objecten zoals een knop). Probeer anders eens om in je CommandButton1_Click() je andere probeersel te zetten:

Visual Basic:

Private Sub CommandButton1_Click()
  Process.Start("C:\mypdf.pdf")
End Sub

Werkt dat?

[kamstra]

nopez...runtime error 424, object required

[Reptile209]

Blader dan eens door dit draadje heen, hier wordt via een API-call een PDF-je geopend. Let op: er zitten schijnbaar een paar foutjes in de code die in de posts verderop 'verholpen' worden.

[kamstra]

schop!

heb t eindelijk opgelost
voor t nageslacht dan nog maar ff de oplossing die werkt:

Visual Basic:

Private Sub CommandButton2_Click()
  Dim RetVal
     
    RetVal = Shell("M:\WINPROG\ACROBATR\Reader\AcroRd32.exe W:\Unit\OCE\OCE NEW COCKPIT\REFERENCES\Contact details\DBSContactlist.pdf", 1)

End Sub

hotsee