Home » エクセルマクロ・Excel VBAの使い方 » 図形内文字列 » TextFrame2経由でもExcelのShape内文字列に取り消し線を引ける－Font2.Strikeプロパティ

TextFrame2経由でもExcelのShape内文字列に取り消し線を引ける－Font2.Strikeプロパティ

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2403（ビルド17425.20000クイック実行）ベータチャネル

検索キーワード
「エクセル VBA shape テキストボックスの取り消し線」
をきっかけにして、Shape-TextFrame-Characters-Fontというオブジェクトの階層を辿って取得できるStrikethroughプロパティを使って、テキストボックスなどの図形内文字列に取り消し線を引けることをご紹介しました。

他の階層を辿っても図形内文字列・Shape内の文字列に取り消し線を引けます。

TextFrame2経由でShape内文字列に取り消し線を引くサンプルマクロ

アクティブなワークシートにテキストボックスを1つ作成し、そのテキストボックスに文字列を入力しておいてから以下のExcelマクロを実行してください。

Sub TextFrame2を経由してShape内の文字列に取り消し線を引く()
　Dim shp As Shape
　Set shp = ActiveSheet.Shapes(1)
　shp.TextFrame2.TextRange.Font.Strike = msoSingleStrike
End Sub

サンプルマクロで行っている処理

拙著『理解するExcel VBA／図形操作の基本』の［chapter 6. TextFrame2を経由した文字列操作］で、TextFrame2オブジェクトを経由した以下のようなオブジェクトモデルでも、図形内文字列のフォントを操作できることを解説しています。

Worksheetオブジェクト
　└ Shapeオブジェクト
　　　└ TextFrame2オブジェクト
　　　　　└ TextRange2オブジェクト
　　　　　　　└ Font2オブジェクト

上記のサンプルマクロでは、このオブジェクトモデルを辿ってFont2オブジェクトを取得し、Font2.Strikeプロパティに、

MsoTextStrike列挙型に定義されている定数msoSingleStrike（直値：1）を代入することで、取り消し線を引いています。

Font2.Strikeなら二重取り消し線も引ける

MsoTextStrike列挙型には、定数msoDoubleStrike（直値：2）も用意されており、

先ほどのサンプルマクロの、

shp.TextFrame2.TextRange.Font.Strike = msoSingleStrike

を、

shp.TextFrame2.TextRange.Font.Strike = msoDoubleStrike

にすれば、二重取り消し線を引くこともできます。

理解するExcel VBA／図形操作の基本
伊藤潔人 2021-11-28
Amazon


最終更新日時：2024-03-26 14:44

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » 図形内文字列 » TextFrame2経由でもExcelのShape内文字列に取り消し線を引ける－Font2.Strikeプロパティ

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓
3年前(2021年4月)の
人気記事
1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:IF関数で○○以上××以下という条件を指定する
3位:右から（後から・末尾から）n文字を削除したい
4位:IF関数で空白なら空白にする
5位:COUNTIF関数で「○○以上」「○○以下」の指定
6位:IF関数で空白でない場合・空白でなければの書き方
7位:左から（前から・先頭から）n文字削除する方法



「図形内文字列」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.