2017-04-24 8 views
1

VBA (アクセス)でテキストをストライキする方法はありますか?VBAのテキストを取り消す方法 - プログラムでは?

たとえば、ちょうど私の知る限り(取り消し線可能性がないことに気づいた。私はボタンをクリックすると、私はH̶e̶l̶l̶o̶ ̶w̶o̶r̶l̶d̶!̶

おかげ


編集#1にHello World!を変更したいです)VBA内でこの質問に答えます。それが可能かどうか疑問に思う人のために。この中には、同じ問題をGoogle-INGの発見

+0

これは可能でしょうか、あなたはどちらかを言及する必要があります。 Excel/Word /など。Excelでは、 'ActiveCell.Font.Strikethrough = True'を試してください。 – PatricK

+0

@PatricKああ、すみません。私はVisual Basic for Applications(Access)を意味します – Paramone

+0

Access VBAで作業していない、[Acces MSDN](https://msdn.microsoft.com/en-us/library/office/ff192120.aspx)から開始 – PatricK

答えて

2

  1. txtTexttxtOverlayという名前の2つのテキストボックスを作成します。
  2. これらの2つのテキストボックスを、コードまたは手動で正確に同じサイズにします。
  3. 正確にtxtTextの上にtxtOverlayを置きます。コードまたは を手動で入力してください。
  4. はどこに適切な次のコードを実行します。

    Const conTransparent = 0 
    
    'Should be a Fixed Width Font 
    Me![txtText].FontName = "Courier New" 
    Me![txtText].FontSize = 12 
    Me![txtText] = "Your text" 
    
    Me![txtOverlay].FontName = "Courier New" 
    Me![txtOverlay].FontSize = 12 
    Me![txtOverlay].BackStyle = conTransparent 
    Me![txtOverlay] = String(Len(Me![txtText]), "-") 
    

クレジットそれを思い付いた男に行く: https://bytes.com/topic/access/answers/722250-strikethrough-text

はそれが役に立てば幸い!

+0

ハハハハ!ああ、これは美しい。ありがとう、たくさんの男! – Paramone

関連する問題