麻辣家族討論版版 » Excel程式區 » 請問如何將 checkbox 透明化？

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

請問如何將 checkbox 透明化？

小學生 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 = "日"

樓主熱帖

收藏

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-4-21 13:03 | 只看該作者

回復 1# esperanto

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

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

小學生 Rank: 1

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

3^#

發表於 2014-4-21 13:24 | 只看該作者

test.rar (9.81 KB)

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

請各位協助！

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2014-4-21 14:04 | 只看該作者

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

ob.Object.BackColor = Target.Interior.Color

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

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

5^#

發表於 2014-4-21 18:02 | 只看該作者

回復 4# GBKEE

原來如此。

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

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

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