Creating a rectangle on an Excel sheet from VB
Set uiRectangle1 = uiSheet1.Shapes.AddShape(1, _
10, 10, 100, 100) 'error: the specified value is out of range
Replace
msoShapeRectangle
with the value 1 since you apparently don't have a reference to the library
that defines msoShapeRectangle. (the office library)
--
Regards,
Tom Ogilvy
"JoeBen" wrote in message
...
I am trying to create a rectangle on an Excel sheet witht the
following code. It fails with: "the specified value is out of range"
I am running VB6 and Excel 2000 on a Windows XP pro PC.
Thanks, Yagil
===
Dim MyXl As Excel.Application
Sub main()
Dim uiSheet1 As Worksheet
Dim uiRectangle1 As Shape
Set MyXl = CreateObject("excel.application")
MyXl.Workbooks.Add
Set uiSheet1 = Sheets.Add
Set uiRectangle1 = uiSheet1.Shapes.AddShape(msoShapeRectangle, _
10, 10, 100, 100) 'error: the specified value is out of
range
End Sub
|