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


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

Modify Free-form Shape Coordinates

Feb 21, 2008

Right now I'm modifying a figure based on size data in an excel table.

I'm modifying the X/Y coordinates of the points of the freeform shape with VBA, however, I have to use absolute x,y coordinates.

I'd like to be able to move the shapes throughout the sheet. With fixed coordinates, this makes it difficult. I'm hoping there's an easy way to it

View 3 Replies View Related

Macro To Change Name Of Active Worksheet?

Mar 27, 2014

Say i have a Worksheet named "gateway" or sometimes it will be "gateway (2)" (3) and so on. Is there a macro that i can call that in some ways calls the active worksheet and renames it to just "gateway" everytime?

View 2 Replies View Related

Macro Code To Change Active Worksheet

May 12, 2006

I have a workbook with about 12 worksheets within it. I am trying to input a button on worksheet 3 that when pushed would activate worksheet 12. Basically the same as if you clicked on the tab at the bottom of the screen called worksheet 12.

I realise that you have to create a button which Ive done. However I cannot seem to figure out the proper macro code to get the button to change the current worksheet when its pushed.

View 4 Replies View Related

Select Shape In Active Cell

Mar 30, 2014

I am trying to select a shape in a cell and place a cell reference into the shape. I know the cell address, but do not know the shape reference. (The row that the cell and shape reside came from copying the row from another sheet and inserting it into the current sheet). I can not seem to come up with the correct code to accomplish this. Right now I have:

Cells(r + 1, 48).Select
ActiveCell.Shapes.Select
ActiveShapes.Formula = "$AW:" & r + 1

Where r+1 is the row where the line finally resides after insertion and "AW" is the column to the right of the cell where the shape resides.

I have tried to put the cell reference into the shape at the location where it is copied from but the reference is not dynamic and I can not seem to get it to be. Another issue that will arise is that the rows in the new sheet will probably be sorted and I question if the cell reference will follow the shape's new location.

View 7 Replies View Related

Replace Text On Non Active Worksheet

Aug 29, 2007

Replace specific text within a defined range without having to select the sheet. I tried the following but this is obviously not the way to go.

Sub Open_Calls_Rename_Organizations()
With Sheets("Open Calls").Range("Organizations")
Cells.Replace What:="Institute Technology Code", Replacement:="ITC", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With
End Sub

View 3 Replies View Related

Inserting Pictures And Resize To Active Cell Shape

Jun 23, 2003

I now have this code that inserts a picture and then resizes it the active cell shape.

Sub InsertPicture()

Dim myPicture As String

myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Select Picture to Import")

If myPicture "" Then

ActiveSheet.Pictures.Insert (myPicture)
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select
With Selection

.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = ActiveCell.RowHeight
.ShapeRange.Width = ActiveCell.Width
.Placement = xlMoveAndSize
End With
End If

End Sub

View 9 Replies View Related

Worksheet Change To Function To Add Text To Cell Which Initially Triggered Change

Jan 10, 2014

i have some existing code which is trigerred when anything is input into column c. The code then adds various information in another three columns. One of which pastes a vlookup formulae, and i would like this forumlae pasted into the column c cell which i initialy edited, in order to remove the requirement for one additional column.

The existing code i have is:

Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim MyText As String
MyText = Environ("username")
If Target.Cells.Column = 3 Then
With Target
If .Value "" Then
.Offset(0, 2).Formula = "=VLOOKUP(D:D,'P:TAOffshoreTAOffshoreTreasuryRecsGeneralCommit ID''s for control Sheet - Do not move or delete[commit ids - DO NOT DELETE OR MOVE.xls]Sheet1'!$A$1:$B$65536,2,0)"

[code].....

I have tried changing the offset to (0,0) or changing the offset to 'target = ', which does add in the vlookup but then the macro debugs at the 'If .Value "" Then' code?

View 3 Replies View Related

Select/Delete Worksheet Text Boxes Using VBA On Active Sheet

Nov 10, 2009

I could use some assistance in creating a macro that will delete all and only text boxes on the active sheet. Some text boxes will be empty, but I still wish for them all to be deleted. Through searching the forums I see a similiar code, but it deletes all shapes on the active sheet:

View 8 Replies View Related

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.

View 9 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

Modify Code To Change Cell Background Color

Nov 11, 2008

I have the code below set to change the background color based on certain conditions. What I need to do is change it so that if none of the conditions are met, it does not change the color at all. As it is written now, if anything is entered in a cell that has a background already set, but does not meet these conditions, the cell turns white.

View 4 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

How To Change Text In Textbox Which Is On Worksheet

Oct 10, 2011

I am trying to change the text in a textbox which is on a worksheet (i.e. not a vba textbox). I recorded a macro and this is what I got:

Code:

ActiveSheet.Shapes.Range(Array("txtAppBy")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
" Mytext"

I tried to combine them into one line by doing

Code:
ActiveSheet.Shapes.Range(Array("txtAppBy")).ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
" Mytext"

but excel was not happy with me. Is there a way to cleanly write this code?

View 9 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 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

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

Add Shape (Arrow) To Worksheet

Apr 18, 2008

This one has me baffled: I recorded a macro to add a shape to a worksheet, very simple. When I try and run it it comes up with a "The specified value is out of range" error. I've searched the net and it seems to come up where the file has been converted from an earlier version of excel (which this file has) but I haven't been able to find a work around for it. The relevant code is

With ActiveSheet
.Shapes.AddShape(msoShapeLeftArrow, 205.5, 312#, 144#, 23.25).Select
End With

View 3 Replies View Related

Code To Copy Contents Of DDE Feed - Modify Worksheet

Dec 14, 2011

I am using the following code to copy the contents of a DDE feed.

Code:
Private Sub Worksheet_Calculate()
Worksheets("Sheet2").Range("A1").EntireRow.Insert Shift:=xlDown
Worksheets("Sheet1").Range("A3:F3").Copy
Worksheets("Sheet2").Range("A1:F1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

What I want to do is only copy the row when the columns contain data, as it stands at the moment it's copying blank rows to sheet 2. Is there a way that I can do this?

View 3 Replies View Related

Hide & Show Shape On Worksheet

Sep 18, 2008

I've been trying to make use of 'Run "doit", but the macro stops when it gets to my sheets called 'RST' and 'RST Pivot'. What I'm I doing wrong?

Sub DoIt()
Application. ScreenUpdating = True
With Sheet1.Shapes("Rectangle1")
.Visible = msoTrue = (Not Sheet1.Shapes("Rectangle1").Visible)
End With
'Toggling sheets Forces Rectangle 1to show while code is running
Sheets("RST").Select
Sheets("RST Pivot").Select
End Sub

Also, do I need to change 'With Sheet1.Shapes' to reflect the actual sheet name?

View 3 Replies View Related

Add In A Text Box Prompt That Will Modify Code

Apr 29, 2009

how to add in a text box prompt that will modify code?

View 4 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved