Board logo

標題: [發問] OptionButton 如何宣告顏色(已解決) [打印本頁]
作者: jesscc    時間: 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
作者: Hsieh    時間: 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) '字型顏色(藍)
作者: jesscc    時間: 2011-4-20 22:28

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

執行階段錯誤'438':
物件不支援此屬性或方法
作者: Hsieh    時間: 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
複製代碼
作者: jesscc    時間: 2011-4-21 18:56

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)