Tooltip And Macro On A Shape In Excel, Vba

Sub testtooltip()
    Dim myDocument As Worksheet
    Dim shp As Shape
    Dim strTooltip As String, strMacroName As String
    
    Set myDocument = Sheets("MyDashboard")
    
    strTooltip = "setting this tooltip - "
    strMacroName = "'" & ActiveWorkbook.Name & "'" & "!" & "RefreshDashboard"
    
    With myDocument
        Set shp = .Shapes("shp_button_refresh")
        
        .Hyperlinks.Add Anchor:=shp, Address:="", ScreenTip:=strTooltip
       shp.OnAction = strMacroName
    End With

End Sub

With myDocument.Shapes.AddShape(msoShapeRoundedRectangle, 10, IntVerticalOffset, 630, IntHeight) 
    .Fill.ForeColor.RGB = RGB(204, 255, 204)
    .Line.ForeColor.RGB = RGB(0, 0, 0)
    .TextFrame.Characters.Text = StrRowName
    .TextFrame.HorizontalAlignment = xlHAlignLeft
    .TextFrame.Characters.Font.ColorIndex = xlAutomatic
    .TextFrame.Characters.Font.FontStyle = "Bold"
    .Locked = True
End With

I have a shape called Oval1.

I would like to set things up so that if a user points the cursor over the shape, then a macro will be activated.

I know how to set things up to activate if the user clicks on the shape:

Sub Oval1_Click()
Do my stuff
End Sub

However, in this new case, I do not want them to have to click - just pass over the shape.

Could someone give me the basic macro-form? Is it a macro associated with the worksheet, as opposed to the shape itself?

Thanks,

MikeG

Hi All,

Hope all is well.

I'm trying to write a macro in Powerpoint'07 and I am very new in writing macros in ppt'07.

I have created a commandbutton in slide1 and if I click this I will get one(or)more shapes (The shape is arrow ---->). This is done by using the below code.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(BeginX:=350, BeginY:=120, EndX:=450, EndY:=230).Line
'.DashStyle = msoLineDashDotDot
.BeginArrowheadStyle = msoArrowheadNone
.EndArrowheadStyle = msoArrowheadOpen
.EndArrowheadWidth = msoArrowheadWidthMedium
.EndArrowheadLength = msoArrowheadLengthMedium
.ForeColor.RGB = RGB(251, 0, 0)
End With

Now, I have created another commandbutton in slide1 and I need code to clear all the shapes (The shape is arrow ---->) by clicking this button.

Expecting your reply.


Thanks,
Vinoth

Hi all,

I have several workbooks that each have about 20 sheets, and each sheet has dozens of shapes (text boxes, command buttons, ovals, etc.) and each shape has a macro assigned to it. What I want to do is disable the OnAction property from each shape with one macro.

I have been able to do them individually by selecting each shape and setting OnAction = "", but when I try to do set this up for an entire worksheet or workbook I'm getting the message "Unable to set the OnAction property of the DrawingObjects class." Below is the code that I've tried.

This sub works if I do them one by one:

Sub DisableShapes1 ()
ActiveSheet.Shapes("Text Box 1").Select
Selection.OnAction = ""
Range("A1").Select
End Sub

But this sub gives me the error:

Sub DisableShapes2 ()
ActiveSheet.Shapes.SelectAll
Selection.OnAction = ""
Range("A1").Select
End Sub

If I run the 2nd Sub on a sheet that does not have any command buttons it seems to works fine. How do I go about getting this to work? Would I need to instead try to loop through each shape?

Any help appreciated...

vbajunkie

Clicking a shape with no macro assigned selects the shape. Clicking a shape that has a deleted macro assigned produces an Excel error message "The macor 'macro name' cannot be found."

How do you entirely remove a macro assignment for a shape? Deleting the macro code doesn't remove the assignment. Going through the Assign Macro process and deleting the macro name from the Macro Name field doesn't work.

Hi friends,

I have given hyperlink for an image, when I move cursor on image it is showing tooltip (path of the file). Please kindly reply how can we remove tooltip to hyperlink.

cross posted at

http://www.mrexcel.com/forum/showthread.php?t=453846


Thanks & Regards
Ramesh

Hi
Is it possible to do what is in essence a find and replace on tooltips in a VBA Project that contains many user forms.
ie. several tooltips refer to say 2010 and I want to change it to 2011 ?
Taking this one stage further, would it be possible to do multiple changes in one loop
I'm thinking along the lines of
with forms
form1, form2, form3 etc
if tooltip.value = 2010 then tooltip.value = 2010
if tooltip.value = "Enter Month Due" then tooltip.value = "Enter Date Due"

Any ideas , or is it a non starter ?.
Thanks for any help

Hi friends,

I have given hyperlink for an image, when I move cursor on image it is showing tooltip (path of the file). Please kindly reply how can we remove tooltip to hyperlink.

Thanks & Regards
Ramesh

Greetings,

I have assigned a macro to a picture button in XL 2007. Is it possible to have a tooltip via VBA for the button?

Thanks in advance
AGS

Greetings,

I've run into a small problem with shapes..

Overview:
I have an excel workbook that copies rows from one sheet to put into another sheet. The originating rows have 1 shape attached. On click of this shape, i want to to identify the row it is on, and delete it.

The Problem:
I've found no way to identify the row the shape is on, or even the name of the shape. On click of the shape, it runs a macro. Since the image can be replicated 50 or more times, i have linked the original to 1 macro, which means all subsiquent copies of the shape, calls the same macro - hense the need to identify the row.

What i want, is to be able to identify the row that the shape is on, so i can identify which row to delete.

Any ideas??

I posted similar yesterday. No one helped...sniff sniff (where's the crying smily)

Now verified to be occur on other machines running various versions of Office 2007...

In Excel 2007, write this simple macro and assign it to a shape:

Code:

Private Sub CloseThis()
ThisWorkbook.Close
End Sub

My experience: Selecting shape to run macro crashes Excel. But if I just run it from the Macros dialog box or from the VB Module, it does not crash.

Is there something else special I need to do in 2007 to assign a Macro to a shape???

Do you have the same experience?

Thanks,
Ernie

Greetings-

I have some command buttons placed onto an excel worksheet. Is it possible to assign tooltip (e.g. "Use this button to insert orders") to these objects? I do not see tooltip property.

any help would be much appreciated

Hi All
I'm building a wiring loom generator.
Macro/vba coding lets me add a shape(boxes etc) and add connectors.
If you click on the shape, the autogenerated name appears in the namebox.

How can I retrieve name into the code.

I assumed a ?????? .Name would be available but having tried all the combinations of activesheet.shapes.shaperange.name etc I've hit a wall.

The value in the Name box would do but again , surfed all the net without success.

This code will generate your boxes and connect them together and then put the names in the sheet.

If you click on one of the boxes the name comes up in the namebox.

How can I refer to that value?

Sub boxes()
Set myDocument = ActiveSheet
Set s = myDocument.Shapes
Set firstrect = s.AddShape(msoShapeRectangle, _
100, 50, 200, 100)
Set secondrect = s.AddShape(msoShapeRectangle, _
300, 300, 200, 100)
Set newconnector = s.AddConnector(msoConnectorCurve, _
0, 0, 100, 100)
With newconnector.ConnectorFormat
.BeginConnect firstrect, 1
.EndConnect secondrect, 1
End With
Cells(1, 1).Value = firstrect.Name
Cells(1, 2).Value = secondrect.Name
Cells(1, 3).Value = newconnector.Name
newconnector.RerouteConnections
end sub

Any ideas would be appreciated
Phil

Ok, this is an weird VBA question. I had originally wanted to display tooltips for individual list box items. Evidentially, that isn't possible. So I settled for a work around. A single click loads a customized tool tip, a double click will launch a macro associated with the list box value. The problem is that after the tool tip is loaded, the user has to move the arrow over a different object and then back again to see the altered tooltip text. Is there any way to force the display of a tooltip after it is changed?...or maybe some other way of doing this I am too stupid to think of

Code:

Private Sub DocumentLauncher_ItemsListBox_Click()
    ' changing the tool tip to the document description
    DocumentLauncher_ItemsListBox.ControlTipText = RetreiveDocumentDescription(GetOptionNumber("Launch"))
End Sub

is it possible to create a pop-up tootip (or show another shape or textbox with help text) when hovering a button (created from a shape)

Dear All,

I have total eight shapes in my workbook. I want to assisg a macro for each shape and short cut key for each
individual shape.

While pressing the shortcut key i want be appear the corresponding shape.
suppose the Key (ALT+v ) the corresponding shape be appear where cursor of excel workbook blink.

Please assist,

Rgds,

Aligahk06

When I refer to a shapes .onaction property, I expect to get the name of the macro I assigned to the shape. This may be to a macro in another workbook. This works fine in Excel 2003. However, in Excel 2007, when I refer to shape.onaction, I get "[0]!macroname" if the macro is in the activebook and "[1]!macroname" if the macro is in another book. Why do I get "[0]" or "[1]" instead of the path and workbook name in Excel 2007?

regards
Mark

I have been trying to add a hyperlink to a shape using the following in
Excel 2002:


ActiveSheet.Shapes("Object 1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1),
Address:= _
"http://www.cas.org/"

This code was generated by recording a macro. The hyperlink was successfully
added during the recording, and works just fine.

However, when I run this recorded macro, I get a:

Run-time error '5':
Invalid procedure call or argument

After a little experimentation, I found I can add a Range object as an
Anchor, but not a Shape object as the documentation indicates that I should.

Does anyone have a solution to this problem?

Thanks,

Rand

Hi Everyone,

I need a macro that will position one shape exactly over another shape, both shapes being of equal size.

I found a way to locate the coordinates of the vertices, but I am having issues setting the second shape to match these coordinates.


Thank you in advance for your help.

* Using Excel 2003

Hello,

I'm trying to code for a button, such that when the user clicks it, the image (screenshot) they have on their clipboard will be pasted and re-sized. I've considered using a button with the following code:

Private Sub CommandButton1_Click()
ActiveSheet.Paste Destination: =Worksheets("Sheet1").Range("D1")
Set myDocument = Worksheets(1)
myDocument.Shapes(1).Width = 400
End Sub

The problem is that this only works if the shape is shape #1, which if the sheet is being re-used, or if they first pasted the wrong thing, etc, it wouldn't be. Any suggestions would be most appreciated! Thank you!

I have a spreadsheet which has numerous "shapes" as links that attach other sheets to it using templates to fill in repetitive data. The problem is that whenever I add another "box" to the list, I have to update and replace the macro sheet (which is separate to save file space) because if I reopen older sheets created before the new shape was added, then there is an error because the new shape is not found. I want to say something like,

on error, skip this step..., however I can't find any good help on this anywhere.

actual code is assigning the template macro to the shape during the file opening sequence

activesheet.shape("A").selection onaction...

error message given is
Run-Time Error '-2147024809 (80070057)':
the item with the specified name wasn't found.