| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Position drawing object relative to cell
I am trying to work out how to position an oval over a cell. On frmOval, if
the user selects a certain radio button, I want an oval to appear over a specified cell. I drew an oval of the correct size, and I would like to copy and paste it to the correct spot. This is what I got from the Macro recorder, by copying, pasting, and moving it into position. It seems clunky, and I'm wondering if there is an easier way to specify the position relative to the cell. There are 11 possible cell positions, based on 11 radio buttons. If Me.optOval01.Value = True Then ActiveSheet.Shapes("Oval 11").Select Selection.Copy ActiveSheet.Paste Selection.ShapeRange.IncrementLeft -12# Selection.ShapeRange.IncrementTop 18# End If |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Position drawing object relative to cell
Here is some code to move an oval... You can use the height and width to
further move the oval. Sub test() Call MoveOval(Shapes("Oval 11"), Range("C10")) End Sub Sub MoveOval(ByRef shp As Shape, cell As Range) 'pass in a shape and a cell shp.Top = cell.Top shp.Left = cell.Left End Sub -- HTH... Jim Thomlinson "Horatio J. Bilge, Jr." wrote: I am trying to work out how to position an oval over a cell. On frmOval, if the user selects a certain radio button, I want an oval to appear over a specified cell. I drew an oval of the correct size, and I would like to copy and paste it to the correct spot. This is what I got from the Macro recorder, by copying, pasting, and moving it into position. It seems clunky, and I'm wondering if there is an easier way to specify the position relative to the cell. There are 11 possible cell positions, based on 11 radio buttons. If Me.optOval01.Value = True Then ActiveSheet.Shapes("Oval 11").Select Selection.Copy ActiveSheet.Paste Selection.ShapeRange.IncrementLeft -12# Selection.ShapeRange.IncrementTop 18# End If |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Position drawing object relative to cell
That helps. I was able to adapt it to fit my needs.
Thanks, ~ Horatio "Jim Thomlinson" wrote: Here is some code to move an oval... You can use the height and width to further move the oval. Sub test() Call MoveOval(Shapes("Oval 11"), Range("C10")) End Sub Sub MoveOval(ByRef shp As Shape, cell As Range) 'pass in a shape and a cell shp.Top = cell.Top shp.Left = cell.Left End Sub -- HTH... Jim Thomlinson "Horatio J. Bilge, Jr." wrote: I am trying to work out how to position an oval over a cell. On frmOval, if the user selects a certain radio button, I want an oval to appear over a specified cell. I drew an oval of the correct size, and I would like to copy and paste it to the correct spot. This is what I got from the Macro recorder, by copying, pasting, and moving it into position. It seems clunky, and I'm wondering if there is an easier way to specify the position relative to the cell. There are 11 possible cell positions, based on 11 radio buttons. If Me.optOval01.Value = True Then ActiveSheet.Shapes("Oval 11").Select Selection.Copy ActiveSheet.Paste Selection.ShapeRange.IncrementLeft -12# Selection.ShapeRange.IncrementTop 18# End If |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to macro to relative position | Excel Discussion (Misc queries) | |||
| Relative position of Employees | Excel Worksheet Functions | |||
| how do i copy and inserted drawing object in a cell to multiple ce | Excel Discussion (Misc queries) | |||
| Displaying a cell relative to the position to another cell | Excel Discussion (Misc queries) | |||
| Relative Cell position NOT working with or without macro | Excel Discussion (Misc queries) | |||
Linear Mode
