Change Shape Text Without Selecting Shape
Mar 4, 2009when i run the below code i get an error 438 'object doesnt support this property or method'
View 2 Replies
ADVERTISEMENT
Selecting Font Size Of Text In A Shape
Sep 21, 2012I'm trying to select the font size of a text in a created shape. My actual code is not working.
Code: ActiveSheet.Shapes("Rectangle 46").TextFrame.Font.Size = 8
What is the proper way to address it?
Change/Modify/Add Text In Shape On Non-Active Worksheet
Sep 7, 2006I 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
Change Shape Name
Feb 2, 2010I 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.
Change The Shape Of Cell
Jun 23, 2008Is 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?
Shape Name Change Based On Cell Value Using VBA
Jul 22, 2014I 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 RelatedChange Shape Size / Keep Its Position?
Jul 10, 2014I 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?
Change Color Of A Shape With Click
Oct 8, 2009what 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 RelatedChange Shape Based On Cell Value
Jan 6, 2014I'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.
Change Button Shape Caption
Feb 14, 2008How 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.
Locate A Shape Within A Shape
Jan 24, 2014On 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
VBA Import Picture Change Shape To Rectangle
Apr 5, 2014I 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] .....
Change Comment Box Shape And Make It Default
Jul 1, 2013i 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 RelatedChange Line Border Color Of Shape
Sep 21, 2007I 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?
Add Shape On Cell Formula Calculation Value Change
May 28, 2008I 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 RelatedChange Shape Fill To Picture When Another Cell Equals To 1
May 14, 2014I 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.
Change Shape Color Based On Combo Box Selection
Aug 7, 2007I 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
Find Out If Shape Has Text
Aug 4, 2009Have 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.
Changing Auto-shape Text Vba
Apr 3, 2007This it possible to change an auto-shape text say Rectangle 200 based on what cell is selected. For Example Peps: -If i select cells(3,3) then the text in Rectangle 200 will change to Hello!!!, but if i select cells (3,4) then the text will change to Bye Bye!!! Do you understand me babes
View 7 Replies View RelatedExcel 2010 :: VBA Code To Automatically Change Colour Shape Based On Cell Value
Mar 2, 2012I 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]....
Flipping Text When Inside Flipped Shape?
Apr 18, 2013I have used VBA to copy data from a sheet into some shapes. Some of these shapes are upside down and therefore the text is upside down. Is there a way to flip the text without having to flip the shape?
View 1 Replies View RelatedExcel 2003 :: Rotate Text In A Shape?
Jul 29, 2012I struggle with my old excel (2003). There is a thing i have to do: put arrows from one sheet which will change its color depending on data, written in some fields. Also there is a task to put these values inside created arrows. I put values using commands:
Worksheets("Map").Shapes("COL").Select
With Selection.Characters
.Text = Range("Data!E4").Value
Arrows are drawn in different angles using drawing tool. So i need to rotate the text inside the arrows respectively to angle of the arrow rotation. So how is it possible to rotate text inside that shape?
Text In Circle Shape Based On VLOOKUP
Aug 9, 2013I have this code and want to place text in shapes (circles).Text changes based on position in data table.
Code:
POINT_1 = Range("E" & j) * 7
NORTH = Range("E" & j) * 7
For j = 23 To 33
Dim CIRCLE_TEXT As String
CIRCLE_TEXT = Range("A" & j)
[Code] ............
Excel 2007 :: Add Textbox Onto Tilted Shape And Add Some Text
Apr 28, 2013I have a picture in my spreadsheet which slight tilted. I want to add a text box on to that shape and add some text but i want the text to be angled the same shape as my picture.
If I create and rotate my text box manually, the default rotation makes it rotate slight to much.
I was hoping if I could add a custom drawing of a text box so the text can be the same a picture.
If Formula: =IF(D4<0.38,"Thin",IF(0.38<D4<=0.48,"Good Shape","Bad Shape"))
Jun 23, 2009I 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 RelatedAdd Shape To Cell With Cell Value Change
May 29, 2008The 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
IF On Shape
Aug 24, 2009code doesn't work
Sub test()
If ActiveSheet.Shapes.Name = ("five") Then
Range("B4").Select
Else
Exit Sub
End If
End Sub
Shape A Textbox
Apr 1, 2008Is it possible to find out if the selected item is a textbox through VB?
Get The Name Of The Shape Clicked
Jan 21, 2009Is 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.
VBA Keep Shape Static?
Mar 21, 2014How 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