麻辣家族討論版版 - Powered by Discuz! Board

標題: 請問如何將 checkbox 透明化？ [打印本頁]

作者: esperanto 時間: 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 = "日"

作者: owen06 時間: 2014-4-21 13:03

回復 1# esperanto

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

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

作者: esperanto 時間: 2014-4-21 13:24

[attach]18103[/attach]

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

請各位協助！

作者: GBKEE 時間: 2014-4-21 14:04

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

ob.Object.BackColor = Target.Interior.Color

複製代碼

作者: esperanto 時間: 2014-4-21 18:02

回復 4# GBKEE

原來如此。

山不轉路轉，我太執著透明化了，
謝謝GBKEE點醒我！

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