add AUTOSHAPES to excel doc in VB 6.0

[amolbehl]

Hi,

Can anyone tell me how to add AUTOSHAPES to excel via VB Code???

[Dököll]

Hi,

Can anyone tell me how to add AUTOSHAPES to excel via VB Code???

I am not sure how this can be done, amolbehl... Do stay tuned for added support. Will let you know I happen to see something:-)

Updated your title, hope you don't mind; helps you get better hits...

In a bit!

[amolbehl]

ok I found the solution to my problem now I have another problem. When I execute the code I have given below, I get runtime Error 1004 - Specified value is out of range.

Set oXL = CreateObject("Excel.Application")
    oXL.Visible = True
    Set oWB = oXL.Workbooks.Add
    oWB.Windows.Application.Visible = true
    Set oSheet = oWB.ActiveSheet
    oSheet.Name = "TEST"
    oSheet.Visible = xlSheetVisible
 
    Dim left As Single
    Dim top As Single
    Dim wide As Single
    Dim height As Single
 
    left = 100
    top = 100
    wide = 100
    height = 100
 
    oSheet.Shapes.AddShape msoShapeRectangle, left, top, wide, height
 

Can anyone help me to solve this error.

What are the appropriate values for left,top and wide and height?

[QVeen72]

Hi,

The Co=Ordinates are OK, but the Code is :

oSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 100).Select
 

Regards
Veena

[amolbehl]

Thanx a lot.


I had another question .... the image I insert has to be in a position relative to cell no. At one time it might be way down and other times it may be way up.

Is there anyway to set the coord in terms of cells ... I mean some kind of mapping from cells to points (Coordinates) ??