shape

I have the following line of code that changes the text in a shape. Sheets("Main Menu").Shapes("AutoSaveMaster").TextFrame.Characters.Text = "Whatever" It works just fine with 64Bit VBA 7 but when I try and run it in 32Bit VBA 6 I get the error Unable to set the text of character class. Any...

On a worksheet I have multiple shapes and several buttons attached to simple macros which manipulate the shapes: eg rotate, flip etc. Also attached to each button is a procedure to handle the error that occurs if a shape has not first been selected. (I will show the code below.) The problem...

I currently have static sized shapes, vba as follows: If Not WorksheetFunction.IsNumber(ActiveWorkbook.Sheets("Configuration").Range("B25").Value) Then CheckConfigItems = CheckConfigItems & "The Shape Size Value is Missing from the Configuration Sheet (Cell B25)" & vbCr & vbLf Else...

Hi all I currently have static sized shapes, however, would like to increase the size depending on a value in a range of cells eg if an issue is high then I'd like the shape to be bigger - this is what I currently have: If Not...

I have a macro assigned to a shape and I would like it to follow the page as I scroll down is this possible? Thanks

I want to create a vba code for sheet one that says if color and shape are the same/duplicate, delete the newest one. How would I dim the color and shape? I want to create a button for the user to press to start the sequence.

I have a Timeline that has a number of connections to Pivot Tables that are driving several charts. I need to report on the dates selected via the time line but I am unable to get the CUBESET functions to work. The Timeline is labelled as DateReceived where the shape can be named (same place...

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) Then If Target.Value < 2 Then ActiveSheet.Shapes("srRectangle1").Fill.ForeColor.RGB = RGB(255, 0, 0) ElseIf Target.Value...

I have a workbook with a lot of sheets, so we hide/unhide some as needed. I am trying to setup a toggle "button" that has been created with a shape & text. In the macro I would like the shape text to change between hide and show. I have tried several ways, but none seem to work. I drop the...

Hi, I developed a macro to change shapes colors based on the value of a cell. Originally I wrote this code ActiveSheet.Shapes.Range(Array("Col")).Select If Range("D69") = "0" Then Selection.ShapeRange.Fill.ForeColor.RGB = RGB(127, 127, 127) ElseIf Range("D69") = "1" Then...

I'm having trouble getting a shape to contain text via a formula. My users are entering values in a number of cells on a worksheet. On another worksheet, I'm concatenating those values (really, variables) along with pre-determined text. The result will be a paragraph of text that's properly...

Hi everyone I have a sort of "shapes" that I would like to use as a commandbutton or togglebutton. What I would like do is when i click on a certain shape, it recorded in the worksheet and gives its name'shape. How to do it? In an attempt I used the code below without success. I need your help...

In this I have Gradient Rectangular how to get Path or Redial Types ? Sub FillGradientRedial() Dim Shp As Shape Dim MyShp As Shape For Each Shp In ActiveSheet.Shapes Shp.Delete Next Set MyShp = ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200) With...

Hi All, Can anyone guide me that how can i add macro to shape in word document. I've below code but want to activate when someone will click on the shape to add image. Private Sub CommandButton1_Click() With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False...

This colours in a shape: ActiveSheet.Shapes.Range(Array("Colour Title")).Select With Selection.ShapeRange.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 255, 0) .Transparency = 0 .Solid End With I want to find the colour of this shape but why...

Hi I have a shape that I use as a button that displays a msgbox when clicked.When I add a screentip to the shape (by adding link to the shape), the code is not executed (MsgBox is not displayed). Instead, I got this error.. Cannot open the specified file. Is there a way to add a screentip to my...

Hi Everyone, I have a sheet Names "Test1" In it I have lots of data. Column C Is Blank and 30 Wide. I have a shape "Square1" that is the same width as Column C and 10 Rows Height. The first 5 rows are fixed using freeze rows. The Square sits in Row 10 of column C. The problem is as I...

Please bear with me...learning as I go I have a macro that I have run successfully in Excel for the past two years but continue to get the following message on my latest project: "Run-time error '-2147024809 (80070057') The index into the specified collection is out of bounds". I am referencing...

Just idly curious. I can't access a shapes properties unless the sheet is activated. I'm guessing the process of activating the sheet loads the sheet shapes into accessible memory, but why? Are the sheet's shapes and properties stored in an abbreviated form that is only expanded to accessible...

Hi All, I'd like to use VBA to toggle a shadow on the currently selected shape... I've tried a few things, but somehow I can't seem to get to the currently selected shape. Might someone give me a leg up? Thanks so much! R