以下為我用巨集錄下在excel畫個紅色圈圈的程式碼，
但不知如何把它轉成BCB，
麻煩懂的大大幫忙，
或是有其他方式可在Excel上畫圈也請提供，謝謝!!

[code vb]
Sub 巨集1()
'
' 巨集1 巨集
'

'
ActiveSheet.Shapes.AddShape(msoShapeOval, 303.75, 131.25, 15, 15.75).Select
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
Selection.ShapeRange.Fill.Visible = msoFalse
End Sub

[/code]

用 bcb 執行那個畫圖的巨集即可,
1. 先連上 excel:
// 在 .h 中定義 Variant Ex;
// Variant Wb; WorkBook;
// Variant Sheet; // ActiveSheet;

2.
我沒試過用中文命名巨集, 這裡先將 "巨集1" 改成 "DrawCircle"

在 .CPP 中加入下列
Ex = OleVariant::GetActiveObject("excel.application");
Wb = Ex.OlePropertyGet("ActiveWorkBook");
Sheet = Wb.OlePropertyGet("ActiveSheet");
Sheet.OleFunction("Run", "DrawCircle" );

這些 Variant 變數用完後 指定 Unassigned 來釋放

Ex = Unassigned;
...
.,,