[發問] OptionButton 如何宣告顏色(已解決)

本帖最後由 jesscc 於 2011-4-21 19:43 編輯

OptionButton 以 OLEObject 物件出現時，不知該如何宣告它的色彩及字型、大小?

Set MyButton1 = Worksheets(.[B3].Text).OLEObjects.Add("Forms.OptionButton.1")
With MyButton1
.Left = 300
.Top = 0
.Height = 18
.Width = 110
.Object.Caption = "AA"
.Name = "OptionButton1"
End With

樓主熱帖

Jess

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-4-20 22:24 | 只看該作者

回復 1# jesscc

.BackColor = RGB(255, 0, 0) '背景顏色(紅)
.Font.Name = "標楷體" '字體
.Font.Bold = True '粗體
.Font.Size = 9 '字型大小
.ForeColor = RGB(0, 0, 255) '字型顏色(藍)

學海無涯_不恥下問

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

3^#

發表於 2011-4-20 22:28 | 只看該作者

這個方法我試過，出現除錯，所以很納悶

執行階段錯誤'438':
物件不支援此屬性或方法

Jess

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-4-20 23:13 | 只看該作者

回復 3# jesscc