vba - How to display 'Tooltip' for a Group (textbox + images) Assigned to Macro? -


context:

i have several groups i've made in excel 2007 each consist of textbox , image(s) , each assigned macro.

what upon mouseover/hover of group, displays 'tooltip' contains more detailed info assigned macro does. i've come across looks solution here: http://www.vbaexpress.com/forum/showthread.php?t=15084 however, don't know how figure out assigned name image can use name in code, , i'm not sure how incorporate use group object instead, or if it's possible groups.

question:

as per title, how display tooltip/infotip group (textbox + images) assigned macro?

edit: i've enclosed copy of code found in link people don't have go page hopping:

code goes in general, public module:

option explicit   declare function getsystemmetrics lib "user32" ( _  byval nindex long) long   declare function getsyscolor lib "user32" ( _  byval nindex long) long    public function createtooltiplabel(objhostole object, _      sttltext string) boolean      dim objtooltiplbl oleobject      dim objole oleobject       const sm_cxscreen = 0      const color_infotext = 23      const color_infobk = 24      const color_windowframe = 6       application.screenupdating = false 'just while label created , formatted      each objole in activesheet.oleobjects          if objole.name = "ttl" objole.delete 'only 1 can exist @ time     next objole        'create label control...     set objtooltiplbl = activesheet.oleobjects.add(classtype:="forms.label.1")        '...and format tooltipwindow     objtooltiplbl          .top = objhostole.top + objhostole.height - 10          .left = objhostole.left + objhostole.width - 10          .object.caption = sttltext          .object.font.size = 8          .object.backcolor = getsyscolor(color_infobk)          .object.backstyle = 1          .object.bordercolor = getsyscolor(color_windowframe)          .object.borderstyle = 1          .object.forecolor = getsyscolor(color_infotext)          .object.textalign = 1          .object.autosize = false          .width = getsystemmetrics(sm_cxscreen)          .object.autosize = true          .width = .width + 2          .height = .height + 2          .name = "ttl"      end      doevents      application.screenupdating = true        'delete tooltip window after 5 secs     application.ontime now() + timevalue("00:00:05"), "deletetooltiplabels"   end function   public sub deletetooltiplabels()      dim objtooltiplbl oleobject      each objtooltiplbl in activesheet.oleobjects          if objtooltiplbl.name = "ttl" objtooltiplbl.delete      next objtooltiplbl  end sub

code goes in sheet (right click sheet tab>code)

private sub image1_mousemove(byval button integer, _      byval shift integer, _      byval x single, _      byval y single)      dim objttl oleobject      dim fttl boolean       each objttl in activesheet.oleobjects          fttl = objttl.name = "ttl"      next objttl       if not fttl          createtooltiplabel image1, "tooltip label"      end if   end sub


Comments

Post a Comment

Popular posts from this blog

python - How to create a legend for 3D bar in matplotlib? -

Image
given ax = plt.subplot() : ax.bar()[0] can passed plt.legend() . however, ax.bar3d() returns none . how create legend displayed bars? update: passing legend="stuff" ax.bar3d() , calling ax.legend() raises /usr/lib/python2.6/site-packages/matplotlib/axes.py:4368: userwarning: no labeled objects found. use label='...' kwarg on individual plots. warnings.warn("no labeled objects found. " you need use proxy artist legends not supported. this code: from mpl_toolkits.mplot3d import axes3d import matplotlib.pyplot plt import numpy np fig = plt.figure() ax = fig.add_subplot(111, projection='3d') x, y = np.random.rand(2, 100) * 4 hist, xedges, yedges = np.histogram2d(x, y, bins=4) elements = (len(xedges) - 1) * (len(yedges) - 1) xpos, ypos = np.meshgrid(xedges[:-1]+0.25, yedges[:-1]+0.25) xpos = xpos.flatten() ypos = ypos.flatten() zpos = np.zeros(elements) dx = 0.5 * np.ones_like(zpos) dy = dx.copy() dz = hist.flatten() ax...
Read more

java - Multi-Label Document Classification -

i have database in store data based upon following 3 fields: id, text, {labels}. note each text has been assigned more 1 label \ tag \ class. want build model (weka \ rapidminer \ mahout) able recommend \ classify bunch of labels \ tags \ classes given text. i have heard svm , naive bayes classifier, not sure whether support multi-label classification or not. guides me right direction more welcome! the basic multilabel classification method one-vs.-the-rest (ovr), called binary relevance (br). basic idea take off-the-shelf binary classifier, such naive bayes or svm, create k instances of solve k independent classification problems. in python-like pseudocode: for each class k: learner = svm(settings) # example labels = [class_of(x) == k x in samples] learner.learn(samples, labels) then @ prediction time, run each of binary classifiers on sample , collect labels predict positive. (both training , prediction can done in parallel, since problems assumed ...
Read more

php - Dynamic url re-writing using htaccess -

how can rewrite http://mydomain.com/test/master.php?catid=2&subcatid=8 http://mydomain.com/test/master.php/catname/subcat using .htaccess file. once rewritten, how can access these parameters in master.php? note: untested, let me know if doesn't work. rewriterule ^master.php/([a-za-z0-9_-]+)/([a-za-z0-9_-]+)$ /master.php?catid$1&subcatid=$2 [l]
Read more