請問如何將 checkbox 透明化？

esperanto

各位好
我用下列的方式增加一個check box，
但無法改成透明的
產生之後，檢視屬性，
backstyle 確實是"fmBackStyleTransparent"，
但背景卻仍為白色。

請各位協助解決，謝謝！

    s = .Cells(Target.Row, Target.Column).Top '所選擇的目標位址
    l = .Cells(Target.Row, Target.Column).Left
    Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=l + 70, Top:=s + 5, Width:=40, Height:= _
        20)
        ob.Name = "CheckBox" & Target.Row
        ob.Object.AutoSize = True
        ob.Object.BackStyle = 0
        ob.Object.SpecialEffect = 0
        ob.Object.Caption = "日"

esperanto

回復 4# GBKEE


    原來如此。
   
    山不轉路轉，我太執著透明化了，
    謝謝GBKEE點醒我！

GBKEE

回復 3# esperanto
Forms控制項中 CommandButton,Label ,Image 的BackStyle = 0 在工作表中有效
CheckBox.1 的 BackStyle = 0   在工作表中無效
建議

1. ob.Object.BackColor = Target.Interior.Color

複製代碼

esperanto

test.rar (9.81 KB)

checkbox
下載次數: 9

2014-4-21 13:22

改變"G"欄的植便會自動加入核取方塊，
但背景無法透明化

請各位協助！

owen06

回復 1# esperanto


   

backstyle 確實是"fmBackStyleTransparent"，
ob.Object.BackStyle = 0

    這二個看起來都是正確的，我試著執行也都能讓他透明化，
    你要不要弄個檔案來看看，看是否還有其他地方有問題。