shape

Hi all, I am after a macro that when a button is clicked it changes the colour of a shape to say if the statement is complete, working towards or incomplete. I then need a cell to be linked to the cell so that if it is complete the cell shows 3, working towards 2, incomplete 1. I have a macro...

Hi I have a small code that makes a shape with text. Are there anyone who can help change the code so that the three lines are centered horizontal in the shape? Best regards Jorgen Sub Shapes() Sheet1.Shapes.SelectAll Selection.Delete Set sh =...

I want to change the code below so if the value 30 is entered into Sheet 1 A2 then “Group 1” will rotate to shape ‘Isosceles Triangle 30’ 40 is entered into Sheet1 A2 then “Group 1” will rotate to shape ‘Isosceles Triangle 40’ 50 is entered into Sheet 1 A2 then “Group 1” will rotate to shape...

I have a shape, and within the shape there is a formula that points to another cell. SO the cell just refers to another cell. In the cell it references I have a IF statement with text combined with another cell reference. Everything works great except the number format is coming through as a...

I've searched around and can't seem to find the exact answer. I have a shape on my sheet called Dashboard, I then have a master calculator tab which will display a message based on the values of the cells I am calculating. I need to show the shape if the value is 1, hide the shape if the value...

Hello, I have searched for a long time but have not found a way to do this, either in Excel proper or with VBA. I need a way to construct a hyperlink address dynamically in real time and assign that link to a shape on the worksheet. I have a workbook with links to specific (dated) columns...

I have a rectangle with an image fill on sheet 1. On sheet 2 I have images that aren't a shape, they were just drag and dropped into Excel, but they are located within the cell borders I'm trying to figure out the code to take the image from a specific cell on sheet 2 and replace the shape...

Hi all, VBA dabbler here! I wrote this code to track training records and update actual signatures. The portion I am having difficulty with is I want to replace a signature shape (captured signature bitmap image) and not just add it over the previous one. to delete the shape I have it locating...

I have a macro which runs under Windows perfectly well. I'm having to convert the system it runs in to run on a Mac, and it fails at a very frustrating point. It's to do with checking/reassigning the macros that are invoked by clicking on shapes that might be on any sheet in the workbook. These...

Hi there, I hope this message finds you all well and in finc spirits today ;-) I'm trying to set up some macro buttons (ie a shape with a macro assigned to it) at the top of an Excel worksheet. This 'top' are ten rows which are 'Grouped' and typically collapsed when using the worksheet (i...

Hello there, I have a range of shape names followed by various values which correspond to the colours which I'd like to assign. I'm having problems piecing together the VBA code in order to update the shapes in one go. My data source is on the sheet named "Data" with the shapes on one called...

Hi, I have a button on top of each sheet and when clicked takes the user back to the TOC. 'Create & Position Shape Set Shape = Worksheet.Shapes.AddShape(msoShapeRoundedRectangle, 550, 0, 40, 20) I've added following code so that the shape stays in the exact same position when the user...

Hello everyone! I've posted before, then later deleted my account, but now I'm in need of your expertise again. I have a calculator called "Chutecalc1" written by a gentleman who used to be in one of my model rocket forums. Anyway, this calculator calculates the shape required for a...

Hello, I am new in the forum, I am having a problem with VBA, I have an excel file, with an N number of shapes which are all the same and increase with the time, lets say there is one extra shape a week, All the shape are aligned in 4 columns from the newest to the oldest ( 1 is the newest...

Hi, everybody I have a macro which works perfectly: Sub Toggle_ListSelectedCmts() Static Flag1 As Boolean If Flag1 = True Then Call CreateShape1_ListCommentsTextInShape1 Flag1 = False ElseIf Flag1 = False Then Call ClearShape1 Flag1 = True End If This code makes my button act like a...

Using VBA code, I will be placing a shape somewhere within a large cell range. But FIRST I NEED TO REMOVE THE SHAPE that may already be there. I know the shape will intersect or touch a certain cell (G13). So, I need the code to simply select this shape and then, I can move it to another...

Hello, I wrote a macro to pull a large dataset from excel and put it in multiple powerpoint slides....everything works great but the text "pDesc" is often too large for the shape I created in the piece of code below. I have to keep the shape the same size so I have to think of a way to auto-fit...

Hi I have 3 macros assigned to 3 different shapes (buttons). Each macro does exactly the same thing (enters text into a cell), but for each macro its different text. Is there any way I can have one macro only for each button but the macro reads the text inside the shape and uses this as the...

I am trying to find an event for a shape but this does not work: Public WithEvents ShapesEvent As Shapes because VBA doesn't recognise Shapes. What should I declare it as? Thanks

This code captures the action when the user checks the checkbox on Sheet1: Option Explicit ' Worksheet module Dim CheckBoxesColl As Collection Private Sub Worksheet_Activate() Dim CheckBoxHandler As ClsCheckBoxEvent Dim MyShp As Shape Set CheckBoxesColl = New Collection For...