| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
changing size of autoshape
Trying to do some basic animation with an autoshape. I have a rectangle that I am changing the size in steps. The problem is, it resizes the bottom edge of the rectangle up instead of moving the top edge of the rectangle down. here is my code: Code: -------------------- For j = 1 To 200 rectheight = rectheight - 0.5 ActiveSheet.Shapes("Rectangle 1").Height = rectheight For i = 1 To 100 DoEvents Next i Next j -------------------- How do I tell VBA to resize my rectangle from the bottom up? -- grime ------------------------------------------------------------------------ grime's Profile: http://www.excelforum.com/member.php...o&userid=19227 View this thread: http://www.excelforum.com/showthread...hreadid=504923 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
changing size of autoshape
ltop = ActiveSheet.shapes("Rectangle 1").Top
For j = 1 To 200 rectheight = rectheight - 0.5 Application.ScreenUpdating = False ActiveSheet.Shapes("Rectangle 1").Height = rectheight Activesheet.Shapes("Rectangle 1").Top = lTop Application.ScreenUpdating = True For i = 1 To 100 DoEvents Next i Next j -- Regards, Tom Ogilvy "grime" wrote in message ... Trying to do some basic animation with an autoshape. I have a rectangle that I am changing the size in steps. The problem is, it resizes the bottom edge of the rectangle up instead of moving the top edge of the rectangle down. here is my code: Code: -------------------- For j = 1 To 200 rectheight = rectheight - 0.5 ActiveSheet.Shapes("Rectangle 1").Height = rectheight For i = 1 To 100 DoEvents Next i Next j -------------------- How do I tell VBA to resize my rectangle from the bottom up? -- grime ------------------------------------------------------------------------ grime's Profile: http://www.excelforum.com/member.php...o&userid=19227 View this thread: http://www.excelforum.com/showthread...hreadid=504923 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
changing size of autoshape
My bad. I contradicted myself in my post. As I resize the rectangle, I want the bottom edge to stay in place an have the top edge move. Your code keeps the top edge aligned -- grim ----------------------------------------------------------------------- grime's Profile: http://www.excelforum.com/member.php...fo&userid=1922 View this thread: http://www.excelforum.com/showthread.php?threadid=50492 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
changing size of autoshape
My mistake in reading.
ltop = ActiveSheet.shapes("Rectangle 1").Top For j = 1 To 200 rectheight = rectheight - 0.5 ltop = ltop - 0.5 Application.ScreenUpdating = False ActiveSheet.Shapes("Rectangle 1").Height = rectheight Activesheet.Shapes("Rectangle 1").Top = lTop Application.ScreenUpdating = True For i = 1 To 100 DoEvents Next i Next j -- Regards, Tom Ogilvy "grime" wrote in message ... My bad. I contradicted myself in my post. As I resize the rectangle, I want the bottom edge to stay in place and have the top edge move. Your code keeps the top edge aligned. -- grime ------------------------------------------------------------------------ grime's Profile: http://www.excelforum.com/member.php...o&userid=19227 View this thread: http://www.excelforum.com/showthread...hreadid=504923 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
changing size of autoshape
whoops, should be incrementing the top
ltop = ActiveSheet.shapes("Rectangle 1").Top For j = 1 To 200 rectheight = rectheight - 0.5 ltop = ltop + 0.5 Application.ScreenUpdating = False ActiveSheet.Shapes("Rectangle 1").Height = rectheight Activesheet.Shapes("Rectangle 1").Top = lTop Application.ScreenUpdating = True For i = 1 To 100 DoEvents Next i Next j -- Regards, Tom Ogilvy "Tom Ogilvy" wrote in message ... My mistake in reading. ltop = ActiveSheet.shapes("Rectangle 1").Top For j = 1 To 200 rectheight = rectheight - 0.5 ltop = ltop - 0.5 Application.ScreenUpdating = False ActiveSheet.Shapes("Rectangle 1").Height = rectheight Activesheet.Shapes("Rectangle 1").Top = lTop Application.ScreenUpdating = True For i = 1 To 100 DoEvents Next i Next j -- Regards, Tom Ogilvy "grime" wrote in message ... My bad. I contradicted myself in my post. As I resize the rectangle, I want the bottom edge to stay in place and have the top edge move. Your code keeps the top edge aligned. -- grime ------------------------------------------------------------------------ grime's Profile: http://www.excelforum.com/member.php...o&userid=19227 View this thread: http://www.excelforum.com/showthread...hreadid=504923 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
changing size of autoshape
Yer the man, Tom. Thanks a ton. -- grime ------------------------------------------------------------------------ grime's Profile: http://www.excelforum.com/member.php...o&userid=19227 View this thread: http://www.excelforum.com/showthread...hreadid=504923 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Excel 97 keeps changing dimensions of autoshape rectangle | Excel Discussion (Misc queries) | |||
| Changing Autoshape properties using formulas only | Excel Discussion (Misc queries) | |||
| Changing size | New Users to Excel | |||
| Link from Autoshape keeps changing | Links and Linking in Excel | |||
| How do I change the autoshape size from inches to cm | Excel Discussion (Misc queries) | |||
![grime[_14_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
