Excel Command

Excel Command

Postby Jeff Barnes » Tue Apr 03, 2007 11:25 pm

Hi Everybody,

I am trying to reduce the size of an image in excel but I am having problems converting the excel code in to fw.

Can someone please help...

Excel Code:
Code: Select all  Expand view  RUN
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 286.5
Selection.ShapeRange.Width = 657#
Selection.ShapeRange.Rotation = 0#



Thanks,
Jeff
User avatar
Jeff Barnes
 
Posts: 929
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada

Postby Jeff Barnes » Wed Apr 04, 2007 12:00 am

I figured it out...

Code: Select all  Expand view  RUN
      oSheet:Pictures:Height:= 286.5
      oSheet:Pictures:Width:= 657




Jeff
User avatar
Jeff Barnes
 
Posts: 929
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada

Postby Jeff Barnes » Thu Apr 05, 2007 2:31 pm

Thought I had it.... but those commands make all the images get rezised.

Does anyone know how to resize an image as it gets inserted to the excel file?




Thanks,
Jeff
User avatar
Jeff Barnes
 
Posts: 929
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 34 guests