shape

  1. A

    VBA shape SpecialEffect and/or BorderColor properties?

    On my userform, I have a textbox (uf1vb1_OPS) that has code written to it when clicked by the user executes code which. I wish to mimic as a button. By default, the shape's SPECIALEFFECT property is Raised (1- frmSpecialEffectRaised). When the user clicks the shape, I want the button to appear...
  2. E

    Changing Shape Text

    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...
  3. M

    Applying same error check to multiple small macros. My code is too repetitive.

    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...
  4. J

    VBA Shape size based on data in range of cells

    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...
  5. J

    Size shapes based on a value in a range of cells

    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...
  6. M

    Shape Moving

    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
  7. U

    Code to delete row

    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.
  8. M

    CUBE function/s to return Timeline selection

    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...
  9. A

    Excel 2016: Worksheet Change Event, repeat for many cells

    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...
  10. L

    Shape as a Macro Button - How to Toggle Text in Button

    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...
  11. E

    VBA - How to select/change shapes with the same name

    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...
  12. R

    Getting a shape to contain a cell's value with not much success

    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...
  13. I

    Using Shape as CommandButton

    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...
  14. D

    How to get Gradient Path or Redial Fill

    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...
  15. S

    MS Word

    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...
  16. T

    Find colour of a shape

    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...
  17. T

    Adding a screentip to a shape

    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...
  18. T

    Macro to get a shape to move around the Sheet so it is always on show.

    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...
  19. B

    Run-time error '-2147024809 (80070057') The index into the specified collection is out of bounds

    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...
  20. Johnny C

    Why can you only access a shape properties when the sheet with the shape on is activated?

    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...

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top