返回列表 上一主題 發帖

請問如何將 checkbox 透明化?

請問如何將 checkbox 透明化?

各位好
我用下列的方式增加一個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 = "日"

test.rar (9.81 KB)

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

請各位協助!

TOP

回復 4# GBKEE


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

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候,卻被這種隨心所欲的自由蒙蔽,虛擲時光而毫無覺知。
返回列表 上一主題