Заливка прямоугольника в Excel

[UFO665]

Подскажите, пожалуйста, как сделать заливку прямоугольника в Excel.
Переделываю код макросов под Visual C++. Но почему-то при попытке залить прямоугольник черным выдает ошибку unhandled exception... (компилится нормально, сбой именно при выполнении кода)

Полный код макроса:
ActiveSheet.Shapes.AddShape(msoShap eRectangle, 313.5, 268.5, 165.75, 6#). _
Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor .SchemeColor = 8
Selection.ShapeRange.Fill.Transpare ncy = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transpare ncy = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor .SchemeColor = 64
Selection.ShapeRange.Line.BackColor .RGB = RGB(255, 255, 255)

Пробовал адаптировать все эти действия для C++, но как уже писал выше - ошибка.

P.S.: в 2003 Экселе прямоугольник по умолчанию создается почему-то с белой заливкой, а в 2007 - с синей.

[doober]

Попробуйте с VB.Net перевести на С++
Проверил,все работает

Imports Microsoft.Office.Interop

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lObjExcelApp As New Excel.Application()
        Dim lObjWorkBook As Excel.Workbook = lObjExcelApp.Workbooks.Add
        Dim SHP As Excel.Shape
        Dim lObjWorkSheet As Excel.Worksheet
        lObjWorkSheet = lObjWorkBook.Sheets(1)
        SHP = lObjWorkSheet.Shapes.AddShape(Microsoft.Office.Core.MsoAutoShapeType.msoShapeRectangle, 313.5, 268.5, 165.75, 6.0#)
        lObjExcelApp.Visible = True
        SHP.Fill.ForeColor.SchemeColor = 8
        SHP.Line.ForeColor.SchemeColor = 64
        SHP.Fill.BackColor.RGB = RGB(255, 255, 255)
        SHP.Line.DashStyle = Microsoft.Office.Core.MsoLineDashStyle.msoLineSolid
        SHP.Fill.Transparency = 0.0#
        SHP.Line.Style = Microsoft.Office.Core.MsoLineStyle.msoLineSingle
        SHP.Line.Visible = Microsoft.Office.Core.MsoTriState.msoTrue
        SHP.Line.Weight = 0.75
        SHP.Line.DashStyle = Microsoft.Office.Core.MsoLineDashStyle.msoLineSolid
    End Sub
End Class

[SAS888]

Можно чуть проще:

Sub CreateFillShape()
    Dim sh As Shape
    Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 313.5, 268.5, 165.75, 6#) 
    sh.Fill.ForeColor.SchemeColor = 8
End Sub

[UFO665]

doober, спасибо, завтра напишу ответ
SAS888, так пробовал, ошибка

[EducatedFool]

SAS888, так пробовал, ошибка

А вы пробовали заменять название константы msoShapeRectangle её числовым значением 1?

[UFO665]

doober, не получилось. вообще если fill использовать, то ошибка.
EducatedFool, не пробовал. завтра исправлю упущение

[UFO665]

может это поможет. в файле stdafx.h прописано:
// Импортируем файл Program Files\Common Files\Microsoft Shared\OFFICE11(или 12)\MSO.DLL
#import "libid:2DF8D04C-5BFA-101B-BDE5-00AA0044DE52"\
rename("RGB","_RGB")
using namespace Office;
// Ипортируем файл Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB
#import "libid:0002E157-0000-0000-C000-000000000046"
using namespace VBIDE;
// Импортируем файл Program Files\Microsoft Office\Office11(или 12)\EXCEL.EXE
#import "libid:00020813-0000-0000-C000-000000000046"\
rename("RGB","ex_RGB") \
exclude("I","IPicture") \
exclude("I","IFont") \
rename("DialogBox","ex_DialogBox") \
rename("CopyFile","ex_DialogBox") \
rename("ReplaceText","ex_ReplaceTex t")
using namespace Excel;

[UFO665]

забил на заливку. нарисовал в этом прямоугольнике линию. проблема решена другим путем)