Converting Code from VBA to OI

Cdehaas01 · October 2012

I am trying to convert the following vba code to OI

ActiveSheet.Shapes.AddPicture("H:\Revsoft\OI92\bmps\test.jpg", False, True, -1, -1, -1, -1).Select

Any suggestions?

KevinFournier · October 2012

Assuming you already have instantiated the ActiveSheet object, the code would look something like this. (This code has not been tested):

objShapes = OleGetProperty(objActiveSheet, "Shapes")
If OleStatus() then
    Error = "Could not get the Shapes collection."
end else
    objPicture = OleCallMethod(objShapes, "AddPicture", "H:\Revsoft\OI92\bmps\test.jpg", 0, 1, -1, -1, -1, -1)
    If OleStatus() then
        Error = "Could not add picture."
    end else
        OleCallMethod(objPicture, "Select")
        If OleStatus() then
            Error = "Could not select picture."
        end
    end
end

Hope that gets you started on the wrong foot.

Cdehaas01 · October 2012

Thank you Kevin,
I solved it in the mean time, but this helped for other stuff i am doing too.
I still need to comprehend when to use the method and when to use property commands.
My next problem is creation of borders.
I got the range and the border objects working, but i am fighting to get to the different edges so i can put the other properties.
If you have any suggestions let me know.

And once more thanks for the hint.

KevinFournier · October 2012

I don't have any suggestions at this mostly because I'm not familiar with the Excel automation API. If you have code, I'd be happy to see if anything stands out.

Converting Code from VBA to OI

Comments