Excel LockAspectRatio in AutoIt

[GreenCan]

Hi Excel geeks,

Has anyone experience with Excel's LockAspectRatio in AutoIt?

I want to add a logo in the title row (row 1) of an Excel spreadsheet, resize it automatically to the height of row 1 and (of course) keep the ratio of the image intact without having to bother about the original sizes of the image.

I found the property on MSDN ( http://msdn.microsoft.com/en-us/library/aa...office.11).aspx ) but I don't know how to set the MsoTriState in Autoit.

corrected code:

#include <ExcelCOM_UDF.au3> ; for the purpose of _ExcelRowHeightSet only

Local $Title_Height = 50 ; pixel size as example
_ExcelRowHeightSet($oExcel, 1, $Title_Height) 
Local $Image_Name = "c:\picture.gif"
Local $Left = 500
Local $Top = 0
$oExcel.ActiveSheet.Pictures.Insert($Image_Name).Select
$oExcel.ActiveSheet.Shapes("Picture 1").Select
With $oExcel.Selection.ShapeRange
    .Left = $Left
    .Top = $Top             
    .LockAspectRatio = -1  ; will keep the picture aspect ratio while resizing it
    .Height = $Title_Height ; automatically resized to Title height
EndWith

Your help very much appreciated.

Thanks

Greencan

Edited March 10, 2009 by GreenCan

[PsaltyDS]

Hi Excel geeks,

Has anyone experience with Excel's LockAspectRatio in AutoIt?

I want to add a logo in the title row (row 1) of an Excel spreadsheet, resize it automatically to the height of row 1 and (of course) keep the ratio of the image intact without having to bother about the original sizes of the image.

I found the property on MSDN ( http://msdn.microsoft.com/en-us/library/aa...office.11).aspx ) but I don't know how to set the MsoTriState in Autoit.

#include <ExcelCOM_UDF.au3>; for the purpose of _ExcelRowHeightSet only

Local $Title_Height = 50; pixel size as example
_ExcelRowHeightSet($oExcel, 1, $Title_Height) 
Local $Image_Name = "c:\picture.gif"
Local $Left = 500
Local $Top = 0
$oExcel.ActiveSheet.Pictures.Insert($Image_Name).Select
$oExcel.ActiveSheet.Shapes("Picture 1").Select
With $oExcel.Selection.ShapeRange
    .Left = $Left
    .Top = $Top             
    .LockAspectRatio = msoTrue; This doesn't work !!!
    .Height = $Title_Height; automatically resized to Title height
EndWith

Your help very much appreciated.

Thanks

Greencan

Try the following to see what works in that context:

.LockAspectRatio = msoTrue ; This doesn't work !!!

    .LockAspectRatio = True
; Or
    .LockAspectRatio = -1
; Or
    .LockAspectRatio = 1

I'm betting on -1 working, and maybe the native AutoIt "True" keyword.

Edit: Fixed code tags

Edited March 10, 2009 by PsaltyDS

[GreenCan]

Hi PsaltyDS,

I tried already .LockAspectRatio = True

COM Error !

err.description is: The specified value is out of range.

err.windescription: The parameter is incorrect.

err.number is: 80020009

but not .LockAspectRatio = -1

You are soo smart

I wish I could be smart too

Thank you very much

Greencan