VBA のCharactersについて

Characters(5.1).Font.size = 50

これだと、5文字目から1 文字を指定してフォントサイズを50にすることになると思うのですが、

後ろから1 文字を指定してフォントサイズを50にするVBAは何か方法ありますでしょうか？

No.4 ベストアンサー 回答者： tatsu99 回答日時： 2019/12/17 21:14

＞ちなみに後ろから2字を指定したいときは、(dlen,2)にするだけでいいってことなんでしょうか？？

（開始位置,文字数）なので
(dlen-1,2)にしないとだめです。

この回答へのお礼

あっ、、そうですよね笑
何から何までありがとうございました！とても助かりました(；_；)

お礼日時：2019/12/17 21:36

No.3 回答者： tatsu99 回答日時： 2019/12/17 20:43

以下のようにしてください。

Sub sample()
Dim dlen As Long
ActiveSheet.Shapes.Range(Array("Text Box 1")).Select
dlen = Len(Selection.ShapeRange(1).TextFrame2.TextRange.Text)
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(dlen, 1).Font.Size = 50
Range("A1:K5").Select
End Sub

この回答へのお礼

できました！！！
凄いです完璧ですありがとうございます、、

ちなみに後ろから2字を指定したいときは、(dlen,2)にするだけでいいってことなんでしょうか？？

お礼日時：2019/12/17 20:57

No.2 回答者： tatsu99 回答日時： 2019/12/17 19:58

>ちなみに対象データはText Box 1なんですが大丈夫でしょうか？当てはめてみたんですがうまく動いてくれず、、

現状は、Characters(5.1).Font.size = 50の個所は
どのようにコーディングされているのでしょうか。

この回答へのお礼

現状は、

sub sample()
ActiveSheet.Shapes.Range(Array("Text Box 1")).Select
selection.ShapeRange(1).TextFrame2.TextRange.Characters(5.1).Font.Size = 50
Range("A1:K5").Select
End Sub

になっています。
すいません初心者なもので( ´•ω• )

お礼日時：2019/12/17 20:21

No.1 回答者： tatsu99 回答日時： 2019/12/17 19:25

dlen = Len(対象データ)

Characters(dlen, 1).Font.size = 50
ではいかがでしょうか。

この回答へのお礼

できそうな気がします！ありがとうございます！
ちなみに対象データはText Box 1なんですが大丈夫でしょうか？当てはめてみたんですがうまく動いてくれず、、

お礼日時：2019/12/17 19:42