動作環境
OS:Windows7(64Bit) Home Premium SP1
MS:Office Version2007 SP3
Excel図形内のテキスト編集で、マウスをドラッグしてテキストの領域を選択後、コンテキスト
メニューから、フォント(F)－フォント(設定ダイアログ)画面－[文字幅と間隔]タブ上に、間隔と幅が、
あります(画像参照)。
テキスト設定した場合、vba上から文字間隔と幅を取得する方法が、知りたいです。
それと、カーニングもついでに、取得する方法が、知りたいです。
大体、目途は、付いています。
どなたか、ご指導願います。
■現在、自分が、分かっている文字間隔と幅を取得するPG(URL参照)
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1188387871
下記の方法ですと、MsgBoxで、[文字間隔を広げる]設定値が取得されます。
For Each wkbWorksheets In ActiveWorkbook.Worksheets
For Each wksShapes In wkbWorksheets.Shapes
With wksShapes.TextFrame2.TextRange.Characters
MsgBox .Font.Spacing
End With
Next wksShapes
Next wkbWorksheets
※[標準]、[文字間隔をつめる]、[カーニング]で、vbaから設定値を取得するには？
Word2003までは下記のマクロでチェックボックスを作成することができたのですが、Word2013で作成し実行すると、
実行時エラー'5941'
指定されたコレクションのメンバーは存在しません。
となり作成できません。
デバッグをクリックすると、
Set myRange = Selection.Fields(1).Code
の行に印が付きます。
修正方法や、Word2013にてマクロでチェックボックスを作成するコマンドをご存じの方がいらっしゃいましたら、よろしくお願いい致します。
Sub FldCbox()
Dim myRange As Range
'
Set myRange = Selection.Fields(1).Code
'
If myRange.Text = "MACROBUTTON FldCbox " & ChrW(9744) Then
myRange.Text = "MACROBUTTON FldCbox " & ChrW(9745)
Else
myRange.Text = "MACROBUTTON FldCbox " & ChrW(9744)
End If
'
With Selection
.Fields(1).Update
.Fields(1).ShowCodes = False
.SetRange Selection.End, Selection.End
End With
End Sub
動作環境
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.二重波線
動作環境
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.二重波線
