全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2193
推到 Plurk!
推到 Facebook!

如何在EXCEL畫圈圈?

答題得分者是:CafeToi
rexhu
一般會員


發表:4
回覆:1
積分:1
註冊:2010-11-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-06-01 12:00:55 IP:220.128.xxx.xxx 訂閱
以下為我用巨集錄下在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]

CafeToi
一般會員


發表:2
回覆:5
積分:6
註冊:2011-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-10-09 15:48:37 IP:123.192.xxx.xxx 未訂閱
用 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;
...
.,,


系統時間:2017-10-21 12:44:27
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!