[[20250531093702]]　『ラベルを押すと透かしたい』（めぐみ）　ページの最後に飛ぶ

『ラベルを押すと透かしたい』（めぐみ）

いつもお世話になってます。

チェックボックスの代わりにラベルを使ってます。
BackColor = vbWhite　時に白ではなく透かして文字を
出す方法はございますでしょうか、
何卒よろしくお願い申し上げます。

Private Sub Label1_Click()

 Select Case Label1.BackColor
 Case vbWhite
      Label1.BackColor = vbBlack

 Case Else
     Label1.BackColor = vbWhite
     Range("F11") = "ありがとうございます"

 End Select

End Sub

＜使用 Excel：Excel2016、使用 OS：Windows11 ＞

Label1.BackStyle = fmBackStyleTransparent
https://www.javadrive.jp/excelvba/userform/index41.html#section4
（雨雲） 2025/05/31(土) 10:06:17

おはよ～ございます　(*^^*)
既にご案内ですが。。。別案で。透明には成りませんが
ＲＧＢ
がつかえるなら　文字の色を　反対色　[補　色]　にしてあげると良いかもしれません
一部の色はすこぉし気味悪いかもしれませんが　ハレーションと言うかなんといいましょうか。。。
よろしければ　お試しを

補色の計算は　255　―　各　Ｒ，Ｇ，Ｂ　だそぉです　ほんとなのかウソなのかわ解りませんが
ＡＩ　からのお返事でした。

ＲＧＢ（２５５－Ｒ，２５５－Ｇ，２５５－Ｂ）

m(__)m
（隠居Z） 2025/05/31(土) 10:16:49

ＭＡＸ＝ｒ、ｇ、ｂの最大値
ＭＩＮ＝ｒ、ｇ、ｂの最小値

R’＝（Max＋Min）－R
G’＝（Max＋Min）－G
B’＝（Max＋Min）－B

との、サイトもありました。。。^^;
わたしは、これで。失礼致します。。。私のコメントは無視してください
大変お騒がせ致しました。すみません。

<< _ _ >>
（隠居Z） 2025/05/31(土) 10:44:55

なのだそうです
（白茶） 2025/05/31(土) 11:56:28

白茶　さん　ありがとうございます。m(__)m

ひとつ、かしこくなりました。。。(*^^*)ｖ
m(__)mm(__)mm(__)m
（隠居Z） 2025/05/31(土) 12:42:26

コメント返信：