Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
how to addshapes in a position decided by offsetting a cell ,
hi,
i wonder how to addshapes in a position decided by offsetting a cell , instead of points ,like this ActiveSheet.Shapes.AddShape msoShapeRectangle, 179.25, 194.25, 14.25, 9 thanks, |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
how to addshapes in a position decided by offsetting a cell ,
for i = 1 to 10 step 3
for j = 1 to 4 step 2 with range("B9").Offset(i,j) Activesheet.Shapes.AddShape msoShapeRectangle, _ .Left, .Top, .Width, .Height End With Next j Next i -- Regards, Tom Ogilvy "EXCEL$B!!(BNEWS" wrote in message ... hi, i wonder how to addshapes in a position decided by offsetting a cell , instead of points ,like this ActiveSheet.Shapes.AddShape msoShapeRectangle, 179.25, 194.25, 14.25, 9 thanks, |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
how to addshapes in a position decided by offsetting a cell ,
Thanks a lot.For your sub,
the sub is all ok,but i just want to addshape to the cell, so i have to calculate the point-style position, thanks best regards "Tom Ogilvy" wrote in message ... for i = 1 to 10 step 3 for j = 1 to 4 step 2 with range("B9").Offset(i,j) Activesheet.Shapes.AddShape msoShapeRectangle, _ .Left, .Top, .Width, .Height End With Next j Next i -- Regards, Tom Ogilvy "EXCEL$B!!(BNEWS" wrote in message ... hi, i wonder how to addshapes in a position decided by offsetting a cell , instead of points ,like this ActiveSheet.Shapes.AddShape msoShapeRectangle, 179.25, 194.25, 14.25, 9 thanks, |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
how to addshapes in a position decided by offsetting a cell ,
Did you try this?
Didn't it put each rectangle over different cells? EXCEL$B!!(BNEWS wrote: Thanks a lot.For your sub, the sub is all ok,but i just want to addshape to the cell, so i have to calculate the point-style position, thanks best regards "Tom Ogilvy" wrote in message ... for i = 1 to 10 step 3 for j = 1 to 4 step 2 with range("B9").Offset(i,j) Activesheet.Shapes.AddShape msoShapeRectangle, _ .Left, .Top, .Width, .Height End With Next j Next i -- Regards, Tom Ogilvy "EXCEL$B!!(BNEWS" wrote in message ... hi, i wonder how to addshapes in a position decided by offsetting a cell , instead of points ,like this ActiveSheet.Shapes.AddShape msoShapeRectangle, 179.25, 194.25, 14.25, 9 thanks, -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Offsetting | Excel Discussion (Misc queries) | |||
offsetting Secondary Axes to a cell value | Charts and Charting in Excel | |||
concatenating line decided not to work | Excel Programming | |||
declaring active cell inside a for loop and offsetting from it | Excel Programming | |||
Offsetting from the Reference of a Cell, not the cell | Excel Programming |