返回列表 上一主題 發帖

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

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

回復 1# jesscc


    .BackColor = RGB(255, 0, 0) '背景顏色(紅)
.Font.Name = "標楷體" '字體
.Font.Bold = True '粗體
.Font.Size = 9 '字型大小
.ForeColor = RGB(0, 0, 255) '字型顏色(藍)
學海無涯_不恥下問

TOP

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

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

TOP

回復 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

可以正常執行了,謝謝 Hsieh 大,再一次幫我解決了問題。
Jess

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題