Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place an autoshape
Whithout going through a whole bunch of trial and error, how can I easily set
the co-ordinates to place an autoshape rectangle over specific cells E10:E11? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place an autoshape
This code will create the Rectangle Shape and place it on top of the Range
specified in the With statement on the worksheet indicated in the first line of the With/EndWith block. The code also stores the name for the Rectangle and its Index number in case you want to interact with it later on in your code. Dim RectangelIndexE10E11 As Long Dim RectangleNameE10E11 As String With Range("E10:E11") Worksheets(1).Shapes.AddShape msoShapeRectangle, _ .Left, .Top, .Width, .Height RectangelIndexE10E11 = Shapes.Count RectangleNameE10E11 = Shapes(Shapes.Count).Name End With Rick "alstubna" wrote in message ... Whithout going through a whole bunch of trial and error, how can I easily set the co-ordinates to place an autoshape rectangle over specific cells E10:E11? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place an autoshape
Thanks Rick
That's certainly much neater than what I was trying to do. BTW, I got a runtime error on this line: RectangelIndexE10E11 = Shapes.Count I didn't need that for my needs so I just took it out. Al Stubna On Feb 24, 4:17*pm, "Rick Rothstein \(MVP - VB\)" wrote: This code will create the Rectangle Shape and place it on top of the Range specified in the With statement on the worksheet indicated in the first line of the With/EndWith block. The code also stores the name for the Rectangle and its Index number in case you want to interact with it later on in your code. Dim RectangelIndexE10E11 As Long Dim RectangleNameE10E11 As String With Range("E10:E11") * Worksheets(1).Shapes.AddShape msoShapeRectangle, _ * * * * * * * * * * * * * * * * .Left, .Top, .Width, .Height * RectangelIndexE10E11 = Shapes.Count * RectangleNameE10E11 = Shapes(Shapes.Count).Name End With Rick "alstubna" wrote in message ... Whithout going through a whole bunch of trial and error, how can I easily set the co-ordinates to place an autoshape rectangle over specific cells E10:E11?- Hide quoted text - - Show quoted text - |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place an autoshape
The error probably came from my running the code with the sheet with the
Shape on it active and, perhaps, you were not doing so. This should fix the problem I would think... Dim RectangelIndexE10E11 As Long Dim RectangleNameE10E11 As String With Range("E10:E11") Worksheets(1).Shapes.AddShape msoShapeRectangle, _ .Left, .Top, .Width, .Height End With With Worksheets(1) RectangelIndexE10E11 = .Shapes.Count RectangleNameE10E11 = .Shapes(Shapes.Count).Name End With By the way, the actual sheet names could be subsituted for the sheet index number that I used. For example, Dim RectangelIndexE10E11 As Long Dim RectangleNameE10E11 As String With Range("E10:E11") Worksheets("Sheet1").Shapes.AddShape msoShapeRectangle, _ .Left, .Top, .Width, .Height End With With Worksheets("Sheet1") RectangelIndexE10E11 = .Shapes.Count RectangleNameE10E11 = .Shapes(Shapes.Count).Name End With Rick wrote in message ... Thanks Rick That's certainly much neater than what I was trying to do. BTW, I got a runtime error on this line: RectangelIndexE10E11 = Shapes.Count I didn't need that for my needs so I just took it out. Al Stubna On Feb 24, 4:17 pm, "Rick Rothstein \(MVP - VB\)" wrote: This code will create the Rectangle Shape and place it on top of the Range specified in the With statement on the worksheet indicated in the first line of the With/EndWith block. The code also stores the name for the Rectangle and its Index number in case you want to interact with it later on in your code. Dim RectangelIndexE10E11 As Long Dim RectangleNameE10E11 As String With Range("E10:E11") Worksheets(1).Shapes.AddShape msoShapeRectangle, _ .Left, .Top, .Width, .Height RectangelIndexE10E11 = Shapes.Count RectangleNameE10E11 = Shapes(Shapes.Count).Name End With Rick "alstubna" wrote in message ... Whithout going through a whole bunch of trial and error, how can I easily set the co-ordinates to place an autoshape rectangle over specific cells E10:E11?- Hide quoted text - - Show quoted text - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
AutoShape | Excel Discussion (Misc queries) | |||
autoshape | Excel Discussion (Misc queries) | |||
Autoshape | Excel Discussion (Misc queries) | |||
NAME OF AUTOSHAPE | Excel Discussion (Misc queries) | |||
AUTOSHAPE | Excel Programming |