返回列表 上一主題 發帖

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

jesscc

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

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-4-20 20:29 | 只看該作者

[發問] 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

jesscc

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

論壇贊助勳章
5#
發表於 2011-4-21 18:56 | 只看該作者
可以正常執行了，謝謝 Hsieh 大，再一次幫我解決了問題。
Jess

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2011-4-20 23:13 | 只看該作者
回復 3# jesscc
  1. Sub nn()
  2. Set MyButton1 = Worksheets(1).OLEObjects.Add("Forms.OptionButton.1")
  3. With MyButton1
  4.     .Left = 300
  5.     .Top = 0
  6.     .Height = 18
  7.     .Width = 110
  8.     .Object.Caption = "AA"
  9.     .Name = "OptionButton2"
  10.     .Object.BackColor = RGB(255, 0, 0) '背景顏色(紅)
  11.     .Object.Font.Name = "標楷體" '字體
  12.     .Object.Font.Bold = True '粗體
  13.     .Object.Font.Size = 9 '字型大小
  14.     .Object.ForeColor = RGB(0, 0, 255) '字型顏色(藍)
  15. End With
  16. End Sub
複製代碼
學海無涯_不恥下問

TOP

jesscc

帖子
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

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

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

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題