Change Shape Name

Feb 2, 2010

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.

ADVERTISEMENT

Change Shape Text Without Selecting Shape

Mar 4, 2009

when i run the below code i get an error 438 'object doesnt support this property or method'

View 2 Replies View Related

Change The Shape Of Cell

Jun 23, 2008

Is it possilbe to change the shape of a cell to a circle?Or is there a way you can make a shape act the same as one of your cells?

View 9 Replies View Related

Shape Name Change Based On Cell Value Using VBA

Jul 22, 2014

I have a shape on one sheet. Need to change the name of a shapes depending on a value in cell from an other sheet.

View 6 Replies View Related

Change Shape Size / Keep Its Position?

Jul 10, 2014

I have an autoshape on an sheet, and use this code (it's a circle), to rezise it....

[Code] ....

However, it does rezise it, but the shape doesn't keep it's central position. Is there a bit of code I can add to stop the shape from moving? In other words, have the shape rezise around it's center of location?

View 4 Replies View Related

Change Color Of A Shape With Click

Oct 8, 2009

what i am trying to do is toggle the color of a shape between red and green. what i have currently (courtesy of a search on this site) is this macro:

View 9 Replies View Related

Change Shape Based On Cell Value

Jan 6, 2014

I'm tying to change a shape based on a cell value. I have this but it will not change fron green to red.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A100").Value >= 0 And Range("A100").Value Range("A100").Value Then
ActiveSheet.Shapes("Oval 5").Fill.ForeColor.RGB = vbRed
End If

End Sub

I would like the shape to go red, yellow and green but I can't find anything that works.

View 1 Replies View Related

Change Button Shape Caption

Feb 14, 2008

How do you references the properties of a shape? I am having trouble with 2 different types. Firstly, I have a worksheet with a group of commandbuttons (all added using the Control toolbox) and I want to loop through them changing, for example, the enabled property of each to TRUE.

Secondly, I have some commandbuttons on a worksheet (added using the Forms toolbox). How would I loop through changing, say, the text on the buttons. I used the macro recorder to try to get an idea and got the following:

Sheet1.Shapes("button 15").Select
Selection.Characters.Text = "New Text"

Although this works, it is not very elegant, how can it be achieved without selecting the button each time, but rather by directly accessing the property.

View 3 Replies View Related

VBA Import Picture Change Shape To Rectangle

Apr 5, 2014

I already have the code to import the picture but i would like it to have rounded corner's. The option if you select the picture then tick format, picture shape and it's the second rectangle in. I can not seem to find that particular piece of code for that particular shape. The other comparison is the (reflected beveled, black) option under picture format.

[Code] .....

View 2 Replies View Related

Change Comment Box Shape And Make It Default

Jul 1, 2013

i changed the shape of "Comment" box with edit shape. However when i right click the updated shape and click on Set Autoshape Default it does nothing. When I insert a new comment it is back to old shape.

View 2 Replies View Related

Change Line Border Color Of Shape

Sep 21, 2007

I have this simple code which sets the objects format as default.

Private Sub FormatTextBox()
ActiveSheet.Shapes("FormatBox").Select
Selection.ShapeRange.SetShapesDefaultProperties
End Sub

Is there a way to set an objects shape to the default format...not as default?

ie: if the default line color is blue. what code could i use to set an object with a black line color, to the default blue?

View 3 Replies View Related

Add Shape On Cell Formula Calculation Value Change

May 28, 2008

I am trying to get different shapes (previously created) to appear in a certain cell, dependant on the resultof a formula in an adjacent cell.

View 4 Replies View Related

Change Shape Fill To Picture When Another Cell Equals To 1

May 14, 2014

I have set up a rollover hyperlink so that when I hover over the cell it changes colour and creates a good effect. To do this I have another cell on the sheet that turns to 1 when the cell in question is hovered over.

I need a code so that when that cell displays the number 1. the object (which is rectangle 2) changes from white fill. to a picture I have saved on my desktop.

I cant quite figure out the coding and have been messing about with things like..

if cell range e.g a1 = 1 then rectangle 2 .userpicture " path " else .solid etc.

View 10 Replies View Related

Change/Modify/Add Text In Shape On Non-Active Worksheet

Sep 7, 2006

I have a button on say, sheet1 with text that I want to change after a certain action takes place; however, I was trying to change this text without switching sheets. (switching sheets isn't a big deal, I'm mainly trying to do it my way for the practice). I'm able to select the button on the other sheet without actually switching sheets, but when it comes to changing it's text I get an error. Here is the code I tried:

Sub macro1 ()
Worksheets("sheet2").Select
Worksheets("sheet1").Shapes("Button 2").Select
Selection.Characters.Text = "Done"
End Sub

Problem with this is it gives cell A1 on sheet2 the "done" text. I also tried this...but it gives the error.

Sub macro1 ()
Worksheets("sheet2").Select
Worksheets("sheet1").Shapes("Button 1").Select
With Worksheets("sheet1").Shapes("Button 1")
.Characters.Text = "Done"
End With
End Sub

View 3 Replies View Related

Change Shape Color Based On Combo Box Selection

Aug 7, 2007

I am trying to use a userform ( Combo Box) to update my named cell "Aircraft1" then based on the value selected change the color of an object.

The code works great if I manually enter the value in the cell "Aircraft1", however if the dropdown list selects the value the object does not update its color.

Is there a way to update the cell via a combo box, and then have the VB code change the color of the object?

This is my

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Aircraft1")) Is Nothing Then Exit Sub
ActiveSheet.Shapes("Arrow1").Select

With Range("Aircraft1")

If .Value = 1 Then
ActiveSheet.Shapes("Arrow1").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17

View 5 Replies View Related

Excel 2010 :: VBA Code To Automatically Change Colour Shape Based On Cell Value

Mar 2, 2012

I have a peice of code that i know is inefficient and it is in danger of becoming too large. I have a spreadsheet that has circles aligned to each cell. There are around 100 in total. The code changes the colour of the shape based on the cell value in which it sits. However, the code needs changing and also it does not automatically update the colour shape even though the cell value changes. I have to manually select a cell and then the formula bar and then press return for it to update.

I am using excel 2010.

This is the code i am using for each shape.

Code:
If Range("n12").Value = text Then
ActiveSheet.Shapes("Oval 250").Fill.ForeColor.RGB = RGB(255, 255, 255)
End If

[Code]....

View 6 Replies View Related

Add Shape To Cell With Cell Value Change

May 29, 2008

The Following works great in it's own workbook, however it will not run in mine. Is it because I have other macros running?

This is the error that I'm getting.

Automation error (Error 440)

Option Explicit

Private Sub Worksheet_Calculate()

If Range("N10").Value = "1.0" Then
ActiveSheet.Shapes("AutoShape 578").Visible = True
Else
ActiveSheet.Shapes("AutoShape 578").Visible = False
End If

View 5 Replies View Related

Locate A Shape Within A Shape

Jan 24, 2014

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.

Move Two Objects - Select Case.xlsm‎

View 5 Replies View Related

If Formula: =IF(D4<0.38,"Thin",IF(0.38<D4<=0.48,"Good Shape","Bad Shape"))

Jun 23, 2009

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.

View 4 Replies View Related

IF On Shape

Aug 24, 2009

code doesn't work

Sub test()

If ActiveSheet.Shapes.Name = ("five") Then
Range("B4").Select
Else
Exit Sub

End If

End Sub

View 9 Replies View Related

Shape A Textbox

Apr 1, 2008

Is it possible to find out if the selected item is a textbox through VB?

View 12 Replies View Related

Get The Name Of The Shape Clicked

Jan 21, 2009

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.

View 4 Replies View Related

VBA Keep Shape Static?

Mar 21, 2014

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

View 6 Replies View Related

Add Shape & Rotate

Jan 2, 2007

i am trying to draw a shape (square or rectangle) using vba textbox's i have managed to draw 2 of the 4 lines.

i am stuck on the ShapeRange.Flip msoFlipHorizontal codeing.

i have attached a example of what iam trying to do.

the coorinates from the last line enterd are saved to sheet1 for use with the next line entered ...

View 9 Replies View Related

Shape On A UserForm

Dec 29, 2007

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.

View 5 Replies View Related

Identify Activecell Of A Shape?

May 24, 2014

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.

View 6 Replies View Related

Formula For S Shape Curve?

Dec 13, 2013

I have a few dates and one Total value. I need to distribute this Total Value in such a way so I can get the same shape S curve (Date vs Value).

View 4 Replies View Related

Make A Shape Into A Button?

Dec 5, 2012

I really dislike the look of the command buttons and would like to use a nice flat-looking Shape into a functional button.

View 3 Replies View Related

Control Tip For Shape In Worksheet?

Jul 15, 2014

Is there any way to place a Control Tip for a shape on a excel worksheet?

View 3 Replies View Related

Multi Arc Shape In One Group?

Jul 18, 2014

How to draw multi Arc Shape in Union group Locks Like (Smiley Face 11)

View 2 Replies View Related

How To Get The Cells In Which The Shape Object Is There

Mar 12, 2009

I have a shape object which is created dynamically.

Now onAction event of the shape object, I need to get the cells row and column number where the shape object is sitting. How can i get it?

View 6 Replies View Related

Check If Shape Exists

Mar 30, 2009

how do i check if a shape exists?

i have a shape created by a macro.
sShape

so when i get rid of this shape i use

View 3 Replies View Related

Accessing The Properties Of A Shape

Apr 2, 2009

How does one access the properties of a shape? For instance getting the text on a button ( from the forms toolbar ) on a worksheet. This works

View 4 Replies View Related

Find Out If Shape Has Text

Aug 4, 2009

Have an .xls file with multiple sheets and many objects (Shapes) on of those sheets.
The objects are all rectangles, some of which contain text frames, where I had entered manually some text.

Also, each shape has a name.

Now, I want my VBA Macro to take a specific shape (using its name), and find out if it has text frame in it.

View 11 Replies View Related

Which Hyperlink Was Clicked And Associated Shape Name

Feb 10, 2010

How do I capture which hyperlink has been clicked (selected in any fashion)?

Then get associated shape name.

View 11 Replies View Related

Hide Shape When Hiding Row?

Feb 20, 2012

I have a macro which hides rows in excel. The lines that I am hiding have a "Rounded Rectangle" shape inserted with a hyperlink. I want the shapes to be hidden as well when I hide the rows. However, when hiding the rows, the shapes persist. Is there a way to hide the shapes as well?

I am hiding the rows via the following vba code...

If Range("CurrentVersion").Value = "1" Then
Rows("20:25").EntireRow.Hidden = True
Else
Rows("20:25").EntireRow.Hidden = False
End If

View 2 Replies View Related

How To Get Inputbox Name A Shape Within Workbook

Apr 11, 2012

I am trying to get an inputbox name a shape within my workbook. This is what I have so far and i am getting a Run-time error ("The specific value is out of range") on the part in red.

Code:
Dim MyInput
Sheets("List Form").Select
ActiveSheet.Shapes.Range(Array("BlankTestButton")).Select
Selection.Copy
Sheets("For Copy").Select
Range("A36").Select
ActiveSheet.Paste

[code].....

View 3 Replies View Related

Resetting Shape Locations

Apr 12, 2012

I have many spreadsheets that use shapes such as arrows and other symbols. The process for these spreadsheets is to move the shape (arrow for Ex) to indicate a specific location of pain or something like that.

Once the arrow is in position, the spreadsheet is printed to PDF and and a snapshot (in adobe) is "taken" and the picture (with the arrow) is pasted into our application.

My questions is how can I move the shapes back into position when you want to do it all over again.

When I have a few shapes I use

PHP Code:

Set sShape = ActiveSheet.Shapes("Right Arrow 6") 2
    With sShape
       .Top = 220
       .Left = 91
       .Rotation = 20
   End With 

For each shape

But if I have lots of shapes, 50+, it's a bit more cumbersome.

Can I loop through the shapes when I enable the macros to pick up the current positions and use that information when I do a reset (loop back again to move any shape that were touched back to where it was when the spreadsheet was opened?

Currently I have them close the spreadsheet without saving and just reopen.

View 3 Replies View Related

Calculating Area Of A Shape

May 17, 2012

Is there an automatic / easy way to get the area of a shape in excel (using vba or otherwise)?

View 1 Replies View Related

How To Move A Pasted Shape

Mar 2, 2013

I Have several images on Sheet 1, I can copy the needed Images to sheet 2 as needed.

Once the image is pasted to sheet2 how do I assign it to a shape variable so that I can position it as desired.

I do not want to have to use Sheet2.(Range("B2").activate or similar

I'm looking to use

Shp.top = 25
Shp.left =15

Code:

Sub Macro1()
Dim Shp As Shape
Sheet1.Shapes("Picture 1").Copy
Sheet2.Paste

'To set the shape variable to the shape on sheet2

Set Shp = "WHAT GOES HERE"
Shp.Top = 25
Shp.Left = 15
End Sub

View 4 Replies View Related

VBA Of Current Shape Properties

Mar 31, 2013

I have a series of shapes (circles) that I wish to use as a substitute to the radio buttons found in the form controls (too small).

I've drawn the shapes, but wish to manipulate their properties in VBA. For example, when the user clicks on the shape, the macro includes VBA which will change the properties to include colour and fill. Of course, clicking it again, will send it back to the default.

How can I get the VBA of the current shape's (default) properties? Where can I find a list of the VBA properties available to any particular shape so I know what fields are available to set attributes to?

View 2 Replies View Related

ADVERTISEMENT