S
Stu W
I've got Access code to create a spreadsheet and to add a shape therein. I
now need to color the shape. How do I do that? Following is the code I've
got so far....
Sub test()
Dim appExcel As Excel.Application
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Add
appExcel.Visible = True
appExcel.ActiveSheet.Shapes.AddShape Type:=msoShapeOval, Left:=387, Top:=50,
Width:=10, Height:=10
End Sub
now need to color the shape. How do I do that? Following is the code I've
got so far....
Sub test()
Dim appExcel As Excel.Application
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Add
appExcel.Visible = True
appExcel.ActiveSheet.Shapes.AddShape Type:=msoShapeOval, Left:=387, Top:=50,
Width:=10, Height:=10
End Sub