動作環境
OS:Windows7(64Bit) Home Premium SP1
MS:Office Version2007 SP3
Excel図形内のテキストの編集で、マウスをドラッグしてテキストの領域を選択後、コンテキスト
メニューから、フォント(F)-フォント(設定ダイアログ)画面-[フォント]タブ上に、下線のスタイルが、
複数あります。
テキスト設定した場合、vba上から下線のスタイルを取得する方法が、知りたいです。
大体、目途は、付いています。
どなたか、ご指導願います。
■現在、自分が、分かっている下線のスタイルを取得するPG
下記の方法ですと、MsgBoxで、.Font.Underline=2が取得されます。
For Each wkbWorksheets In ActiveWorkbook.Worksheets
For Each wksShapes In wkbWorksheets.Shapes
With wksShapes.TextFrame.Characters
MsgBox .Font.Underline
End With
Next wksShapes
Next wkbWorksheets
※「1.」~「16.」で、下線のスタイルをvbaから取得するには?
1.一重線
2.二重線
3.太線
4.点線
5.太点線
6.破線
7.太破線
8.長破線
9.長太破線
10.一点破線
11.太一点破線
12.二点破線
13.太二点破線
14.波線
15.太波線
16.二重波線
No.2ベストアンサー
- 回答日時:
すみません。
もう一か所書き換えていたのにうっかりコピーし忘れていました。With wksShapes.TextFrame2.TextRange.Characters
MsgBox .Font.UnderlineStyle
Excel 2007でも確認しました。
No.1
- 回答日時:
面倒なので最初のほうと最後だけ調べてみましたが
なし0の次は一重線2 二重波線17のようでした。
もしかすると1がないのかもしれません。調べてみてください。
MsgBox .Font.UnderlineStyle
Windows8.1 Office2013です。
この回答への補足
>MsgBox .Font.UnderlineStyle
Excel(Office)2007ですと、下記のエラーが出ます。
--------------------
実行時エラー'438'
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
--------------------
更なる、ご指導願います(__)。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Word(ワード) Wordで破線をひくにはどうすれば良いのでしょうか。 5 2022/06/17 13:24
- CAD・DTP AUTOCADについて質問です。 線の太さを設定していたのですが、0.25の線の太さまでは異常はない 1 2023/05/19 23:42
- その他(車) 自動車内への太陽光の影響を軽減。暑さ自体の対策(遮熱)のためにカットすべき光線は赤外線? 可視光線? 8 2023/07/21 20:55
- Excel(エクセル) Libreoffice calcで人名を取り消し線を入れたい。 2 2022/09/10 15:27
- 運転免許・教習所 右左折後、車線が増える場合はどこに進めばよいか 10 2023/02/02 20:48
- Excel(エクセル) 【Excel】エクセルの1シートが2枚に分割されてしまうので印刷プレビューを押して閉 4 2022/12/13 13:12
- Word(ワード) 大見出しスタイルの作成(太字、下罫線の太さ、行間固定値)をしなどういう所 1 2023/07/15 22:56
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Excel(エクセル) 条件付き書式で太罫線を引く方法 3 2023/05/29 12:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数式中の文字をCambria Math以...
-
DOSテキスト形式とは?
-
vbaで、オートシェイプ文字列、...
-
VBAでpng画像に文字列を描画す...
-
VB2008 LabelやButtonのTextを...
-
word
-
名古屋の栄と錦は治安悪い?
-
Illustratorテキストエリアへ塗...
-
PowerPoint SmartArtの箇条書...
-
illustratorとExcelは連携出来...
-
『μg』の読み方と意味。
-
Excel VBAで改行を含む文字列を...
-
イラレでダブルクリックで文字...
-
exe bat
-
capcutってアプリで質問です。 ...
-
バイナリファイルの編集
-
フォームを開く時のイベント処理
-
PDF→CSVへ変換
-
画像からテキストデータを正確...
-
ヒント表示について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
数式中の文字をCambria Math以...
-
DataGridViewでセル内の特定の...
-
VB2008 LabelやButtonのTextを...
-
VBA超初心者です。
-
DOSテキスト形式とは?
-
VBAでpng画像に文字列を描画す...
-
LibreOfficeのフォントワークの...
-
Flash MX 2004とFlash MX
-
外部HTMLテキストが埋め込みフ...
-
歪んだ感じの文字の書き方は?
-
エクリプス(&TOMCAT)...
-
オススメのビットマップフォント
-
パブリッシュしたら思い通りに...
-
ファイル容量を軽くする方法。
-
リッチエディットの独自描画で...
-
パワポにて、フォントのデフォ...
-
Mac OS X テキストエディットに...
-
Flashでテキストアウトライン化...
-
MAC用の書き込める履歴書テンプ...
-
AS3の拡大と縮小について
おすすめ情報