Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Slow code
I am using Office 2003 on Windows XP.
My code places a graphic on a spreadsheet in the upper left corner of the screen. I need code that will resize this image so that it will be as large as possible, yet not go off my visible range (row 30 by column 12) - please note that this is only used by me so the size will be constant. I wrote a sub to do this resizing, as shown below, however, this program runs very slowly, I can see each incremental size change. I would have expected this to run pretty fast. Does anyone have a function that will speed this up? Sub Test_Image_Resize_2() Dim oItem As Picture Dim lHigh As Long Dim lWide As Long Set oItem = Selection Do lHigh = oItem.Height - 1 lWide = oItem.Width - 1 oItem.Height = lHigh oItem.Width = lWide If oItem.BottomRightCell.Row <= 30 And oItem.BottomRightCell.Column <= 12 Then Exit Do Loop End Sub Thanks much for your example code. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Better Way To Do This SLOW code | Excel Programming | |||
Slow Code | Excel Programming | |||
SLOW Code... | Excel Programming | |||
Slow Code | Excel Programming | |||
Is this slow code? | Excel Programming |