ScreenTip in OnAction

[dragopre]

Pozdravljeni
Spet rabim pomoč.
Na listu imam različne oblike s katerimi zaganjam posamezne makre (OnAction). Ko sem tem oblikam dodal še namig (ScreenTip) se makro ne zažene več.

Koda: Izberi vse

    With Worksheets(cList).Shapes.AddShape(nTipPuscice, _
                                           nPLeft, _
                                           nPtop, _
                                           nPWidth, _
                                           nPHeight)
        .Name = cPImeObl
        .Fill.ForeColor.RGB = xBarvaF
        .Line.ForeColor.RGB = xBarvaL
        .Line.Weight = 1
        .Placement = 3
        .Fill.Transparency = 0.5
        .OnAction = "'Puscica_Klik """ & cPImeObl & """'"       '    'Puscica_Klik ""cPImeObl""'
        .Locked = True
    End With
                                                          
    With Worksheets(cList)                                      ' Dodam še namig
        .Hyperlinks.Add Anchor:=.Shapes(cPImeObl), _
                        Address:="", _
                        ScreenTip:=cScrTip
    End With
              

Ne bi se rad odpovedal namigom. ali obstaja rešitev.

Lep pozdrav, Drago

[admin]

To pa seveda ne bo šlo.

Vi ste uporabili spletne povezave (HyperLinks) in slednje so namenjene pač povezavam(!). To pomeni, da ko kliknete na povezavo, vas slednja nekam poveže. S tem prevzame tudi obravnavo klika.

Ko vi kliknete na takšen objekt bo slednji šel pogledat kam naj uporabnika poveže in vi ste rekli, naj ga ne poveže nikamor. Ne bo pa izvajal makra, saj klika ne zazna, prevzel ga je namreč že link.

Brez uporabe naprednega programiranja pa (mislim da) ni nekega preprostega načina, kjer bi lahko uporabniku prikazali nasvet s tem ko se z miško postavi na nek objekt.