Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
align autoshape with centre / right of excel cell
Hi all,
I want to align an autoshape using vba with some cells on a spreadsheet... I picked up the following from this newsgroup a while back: "Use something like the following to align the top left hand corner of the copied shape to the G column and the active cell row: Sheets("Data").Shapes("Up Arrow").Copy ActiveSheet.Paste With Cells(ActiveCell.Row, "G") Selection.Top = .Top Selection.Left = .Left End With John Green (Excel MVP) " which is great - works perfectly (cheers John!), but I want to align to the centre right of the cell, not the top left! is this possible? Many thanks chris |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
align autoshape with centre / right of excel cell
please explain what center right means.
if you mean the right side of the cell, isn't that the left side of the cell to the right. Selection.Left = .offset(0,1).Left to get the center of a cell height wise ActiveCell.Top + activeCell.height / 2 Selection .Top = .Top + .height / 2 -- Regards, Tom Ogilvy " wrote: Hi all, I want to align an autoshape using vba with some cells on a spreadsheet... I picked up the following from this newsgroup a while back: "Use something like the following to align the top left hand corner of the copied shape to the G column and the active cell row: Sheets("Data").Shapes("Up Arrow").Copy ActiveSheet.Paste With Cells(ActiveCell.Row, "G") Selection.Top = .Top Selection.Left = .Left End With John Green (Excel MVP) " which is great - works perfectly (cheers John!), but I want to align to the centre right of the cell, not the top left! is this possible? Many thanks chris |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
align autoshape with centre / right of excel cell
thanks Tom - you are a genius :)
Tom Ogilvy wrote: please explain what center right means. if you mean the right side of the cell, isn't that the left side of the cell to the right. Selection.Left = .offset(0,1).Left to get the center of a cell height wise ActiveCell.Top + activeCell.height / 2 Selection .Top = .Top + .height / 2 -- Regards, Tom Ogilvy " wrote: Hi all, I want to align an autoshape using vba with some cells on a spreadsheet... I picked up the following from this newsgroup a while back: "Use something like the following to align the top left hand corner of the copied shape to the G column and the active cell row: Sheets("Data").Shapes("Up Arrow").Copy ActiveSheet.Paste With Cells(ActiveCell.Row, "G") Selection.Top = .Top Selection.Left = .Left End With John Green (Excel MVP) " which is great - works perfectly (cheers John!), but I want to align to the centre right of the cell, not the top left! is this possible? Many thanks chris |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I get Excel to print in page centre? | Excel Discussion (Misc queries) | |||
How to display the cell it goes to at the centre of the monitor screen? | Excel Discussion (Misc queries) | |||
How to display the cell it goes to at the centre of the monitor screen | Excel Programming | |||
Aligning numbers to the centre of the cell | Excel Discussion (Misc queries) | |||
How do I get "centre across selection" to centre properly? | Excel Discussion (Misc queries) |