返回列表下一主題上一主題發帖

請問如何將 checkbox 透明化？

esperanto

小學生 Rank: 1

帖子: 14
主題: 5
精華: 0
積分: 21
點名: 0
作業系統: Windows XP
軟體版本: SP3
閱讀權限: 10
註冊時間: 2011-3-9
最後登錄: 2021-10-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-4-21 10:20 | 顯示全部帖子

請問如何將 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 = "日"