質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.53%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Word

Microsoft WordはMicrosoftが開発した業務用の文書生成用のソフトウェアです。

Q&A

2回答

398閲覧

word vba 文字の高さ変更について

hiyoko0410

総合スコア5

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Word

Microsoft WordはMicrosoftが開発した業務用の文書生成用のソフトウェアです。

0グッド

0クリップ

投稿2022/10/22 02:34

前提

word でマクロを作成しています。
文字の位置(高さ)を変更する際、
文字の高さが0だった時、-0.5ポイントにしたいのですが、
なぜか-1ポイントに設定されてしまいます。
1ポイントづつならうまくいきますが、0.5は変更できません。
出来る方法はありませんでしょうか。
ご教示願います。

実現したいこと

ここに実現したいことを箇条書きで書いてください。

  • ▲▲機能を動作するようにする

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Sub 文字下げ()
If Selection.InlineShapes.Count <> 0 Then
MsgBox "図形が選択されています。"
Exit Sub

ElseIf Selection.ShapeRange.Count <> 0 Then
MsgBox "図形が選択されています。"
Exit Sub
Else
Select Case Selection.Font.Position
Case 3
Selection.Font.Position.Position = 2.5
Case 2.5
Selection.Font.Position = 2
Case 2
Selection.Font.Position.Position = 1.5
Case 1.5
Selection.Font.Position = 1
Case 1
Selection.Font.Position.Position = 0.5
Case 0.5
Selection.Font.Position = 0
Case 0
Selection.Font.Position.Position = -0.5
Case -0.5
Selection.Font.Position = -1
Case -1
Selection.Font.Position.Position = -1.5
Case -1.5
Selection.Font.Position = -2
Case -2
Selection.Font.Position = -2
MsgBox "文字位置-2ptです(最小)", vbOKOnly
Case Else
MsgBox "文字が選択されていません。"
End Select
End If
End Sub

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報(FW/ツールのバージョンなど)

ここにより詳細な情報を記載してください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

Wordインターフェイス作成時のミスと思われますが、ずっと修正されてないやつです。
回避方法が一応あって、Word95時代のWordBasicであれば、UIと同じ0.5単位で設定できます。

VBA

1'選択範囲の文字を上げる 2WordBasic.FormatFont Position:="0.5" 3'選択範囲の文字を下げる 4WordBasic.FormatFont Position:="-0.5"

投稿2023/03/13 01:07

FKD

総合スコア268

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

Selection.Font.Position

Word.Font オブジェクトの Position プロパティのデータ型は Long 型です。
したがって、小数を含んだ数値を代入しようとすれば整数に丸められて格納されます。

投稿2022/10/24 02:26

sk.exe

総合スコア705

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.53%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問