I am trying to create a clickable image map. I have one macro that is activated when any shape is clicked, but it executes different conditions depending on which shape is clicked.
How do I check whether a specific shape is clicked?
Some of the code I tried:
If ActiveSheet.Shapes("Freeform51") <> null Then
...
Also:
If ActiveSheet.Shapes(Shapes. Name).OnAction = "Freeform51" Then
Also, is there an easy way to pull the shape names and manually change them?
I have a bit of code that I saved as an add-in. The code does a couple things: (1) Creates a right-click button that on action (2) draws a rectangular auto-shape that is the size of any selected range.
The add-in seems to loaded correctly.
However, when I launch a new excel sheet, my intent was to have the code (the right click option) be available whenever I opened Excel.
On the attached spreadsheet there is two irregular shapes. "Area1" & "Area2". I need to be able to determine which area the "ball" shape is located in. If the ball is in Area1 then "Multiply 8" gets the ball and "Multiply 9" moves to the blue cell "AH39". If the ball is in "AreaB" Multiply 9 gets the ball and "Multiply 8" runs to cell "S37"
I should be able to do the moving of the shapes using all the samples, its determining which area the ball is in is the problem.
In the real spreadsheet i will probably have around 10 different Areas.
I have D4=0.42. I thought this formula =IF(D4<0.38,"Thin",IF(0.38<D4<=0.48,"Good shape","Bad shape")) was supposed to give me "Thin" for D4<0.38, "Good shape" for 0.38<D4<=0.48 and "Bad shape" for the contrary, but it only gives me "Bad shape" when D4 is clearly between 0.38 and 0.48.
Running into this issue of "transworksheet macros"
I have a master "update" commandbutton on sheet 1. I have two sub "update" buttons on sheet 2 and 3 respectively.
What I would like to do is have the user click the master button, that would "click" the two sub buttons so they run their respective macros on their respective worksheets (within the same worksheet.
I have tried pasting the macro code in the master button, telling it to select the sub worksheet and then run the macro, but the marco runs itself on the master worksheet instead.
what will be the code if commandbutton1 is clicked, it will check if the text in the combobox is in the range A2:A10 in the worksheet, if not in the range it will display a message box that the text is not in the range :D
I have a shape in Excel called Canada. I grouped it with another shape and want this new grouping to be called Canada. But when I enter Canada in the shape name entry box, it doesn't actually change it (as it thinks I am referring to the existing Canada).
I need something like Names manager, but for shapes, not ranges.
Is there any way that I can get the name of the shape i just clicked to call a procedure?
I have 35 shapes in my Worksheet. Each shape has a different name. Each shape has a macro procedure assigned, wich do almost the same procedure (with just small differences, depending on from wich shape the macro was called).
I want to make just one macro procedure and catch from wich shape the macro was called.
How do i Keep shape where it is no matter if i scroll up or down.
Sub KeepshapeStatic() Dim ws As Worksheet Dim shp As Shape Set ws = Sheets("Sheet1") Set shp = ws.Shapes("MyShape") 'How do i Keep shape where it is no matter if i scroll up or down End Sub
I want to create a shape connecting them and place that shape on a userform. I can create the area without any problems on a worksheet using ActiveSheet.Shapes.BuildFreeform but I don't know how to get it onto my userform.
I have looked through previous posts on similar topics and seen responses that it's as easy as copying the shape from the worksheet and pasting it into an image or frame on the userform. I can copy the shape to the clipboard without any problem. However, when I try to paste it onto an image or frame in a userform I get a message saying that the object doesn't support the use of paste. I've tried using both Selection.Copy and Selection.CopyPicture xlScreen, xlBitmap thinking it might treat a bitmap differently. When I paste I'm trying both UserForm1.Frame1.Picture.Paste and UserForm1.Image1.Picture.Paste but neither work, even though I have blank images and frames with those names on my form.
On the attached example i am concatenating surname with the first letter of the forename. However, what i want to add into the formula is if the answer is a duplicate of another answer in a range that these duplicates are changed to surname and full forename.
Is this possible with a formula or would it need a bit of vba programming?
Is there a code in vba, that will return today's date (or the date of the week before, [today-7]) I need a vba code that will check a current cell - let say cell "A1", that contains a date( for exmpel: 12/7/09), and compare this date to the date last week, if the cell (A1)contains a date that is older then last week , then fill in A2 with "False", if the date in A1 is between the date of today and a week ago then fill A2 with "True". (For the exmple that I gave of course in A2 the value will be "False")
I have lots of rows of text data on sheet 1(Q2:AB139708), on sheet 2 I have a list of text (A2:A44). In sheet 1 I would like to display "1" in cell ap2 if any of the row from (Q2:AB2) contains text from the list on sheet 2(A2:A44), then I would copy this down to 139708.
I've got all the grades sorted out for the Principal, she is now looking for me to tally up all the students who got straight 'A' grades. I know there is going to be anotehr combination here but I'll start with the basics of straight 'A's
The screen below shows how the data is presented although I've slimmed down the headings to fit better.
How do I insert a formula to look at each row to see where based on the subjects taken, there are straight 'A's
************************************************************************>Microsoft Excel - Y13 & 14 Combined Worksheet.xls___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutZ6= ABCDEFGHIJKLMNOPQRSTUVWXYZ1ArtArt*2BiologyBSChemistryD&TDramaEconomicsE.*LitFrenchGeographyHistoryH.*EconICTICT2IrishLatinMathematicsMaths*PureMusicPhysicsPoliticsPsychologyR.ESociologySpanish2********A****A**********A*3********AA*A*******A******4******A*C*****D****B******5***********B**********BAA*6*******C***D************BBSheet1* [HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name box PLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.
All it does is step the cursor down 1 cell from where it starts on the worksheet, rather than sorting through the defined range and then selecting the cell I want. I'm not sure why as I've used almost exactly the same code successfully on a different worksheet in the same workbook:
Dim mycheckrng as Range myupdatedate = "04/06/2008" Set mycheckrng = Range("D5:AR5") For Each c In mycheckrng If c.Value = myupdatedate Then c.Select End If Next c mycsdcdateref = ActiveCell ActiveCell.Offset(1, 0).Select
I am just having trouble getting vba to recognize cell values. All I want it to do is if cell g2 = 5, then end sub, Else, continue. But I am so clueless that I cant even get it to recognize that what is in cell g2 is the number 5. I would think that I could just put,
If range(g & 2) = 5 Then End Sub Else Resume End If
I regularly check formula's in quotations to ensure they are working on the correct cells by cycling through each cell and pressing F2. Pressing F2 on a cell with a formula (in office 2003) draws boxes around each cell that is being referenced in the cell. This is very handy, but for large worksheets is time consuming to "F2" each cell. . . . can the F2 behaviour of highlighting cells be automated ? See attached screenshot.
I have put a rectangle shape in a cell in excel. The shape is within the border of a particular cell.
Is there a way to find the reference of the cell on which that particular shape resides.
For example, I have kept a rectangle shape in cell F5. I was looking for a macro which would return the cell reference "F5" in which the shape resides.
