返回列表 上一主題 發帖

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

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題