[[20260424174555]]　『図形内の文字サイズを,スピンボタンでサイズ変更』（Ty）　ページの最後に飛ぶ

『図形内の文字サイズを,スピンボタンでサイズ変更』（Ty）

図形内の文字サイズをフォームコントロールのスピンボタンでサイズ変更したい。ご教示ください。
(図形内の文字は　fx=B2　にて表示をしている)
(B2には　Vlookupにて文言(長短あり)にて表示をしている)

＜使用 Excel：unknown、使用 OS：unknown ＞

 今はコンボボックスでサイズを選択していると思いますが、
 スピンボタンへのこだわりはどんな点にあるのですか？
 必要性といいますか、まそんなことですが、後学のために教えて下さい。
 またスピンボタンはどこに表示するんですか？
（xyz） 2026/04/24(金) 18:28:34

100種類の看板プレートを作るにあたり
B1には数字を入力(1～100)
(数字はもう1つのスピンボタンで変える)
B2にはVlookupで
B3にはVlookupで
B4にはVlookupで
表示
それを図形に取り込んでいます
くみあわせが時々変更もあるため直接文字入力で確定したくありません
文字のサイズを変更する理由は
B2に表示となる文言は
・情報掲示板・携帯電話充電場所
・トイレ使用禁止
・受付
・荷下ろしさばき場所
・正門
・介護室
・避難所運営本部
といった文字数がいろいろあるため
印刷のたびサイズ変更が楽としたいためです。
いい方法がありましたならお教えください。

（Ty） 2026/04/24(金) 18:57:34

 コメント拝見しました。以下、メモします。

 ActiveXコントロールのスピンボタンに関するChangeイベントプロシージャで
 その図形の文字列のフォントサイズを変更するとよいでしょう。
 普通にサイズ変更するマクロ記録をとると、フォントサイズ変更のための参考コードが得られます。
 また、プロパティでサイズの上限、下限を設定しておいたほうがよいでしょう。
 変動の刻みも指定できます。
（なお、フォームコントロールのスピンボタンのリンクセルの変更は、シートのChangeイベントでは
  捕捉できないようなので、ActiveXコントロールを使うのがよいでしょう。）
 頑張って下さい。

（xyz） 2026/04/24(金) 19:10:56

先ず　頑張ります。
質問ができるまで、おまちください
（Ty） 2026/04/24(金) 19:18:19

 その間に別の切り口の案をひとつ。

 ワードアートスタイルの[文字の効果]の変形で [四角]を指定すれば、
 図形のサイズに文字のサイズが自動でフィットしてくれるんじゃないかなーと思って。
 まぁ、当然文字は変形しますけどね。(縦長に詰まったり...)

エクセル2007（Excel 2007）のワードアートで変形文字を作る｜DTP・印刷データ作成ガイド
https://www.ddc.co.jp/dtp/archives/20091116/120011.html

テキストボックスのサイズを変えずに文字サイズを自動調整(拡大/縮小)は可能か?: ぜんばのITブログ
https://s-zenba.seesaa.net/article/2023-09-11.html

（白茶） 2026/04/24(金) 19:35:29

xyz様
ありがとうございました。
下記にてできました。

サイズの上限100、下限11 変動幅10
Linked cell a2

Private Sub SpinButton1_Change()

    ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
    Selection.ShapeRange.TextFrame2.TextRange.Font.Size = Range("a2")

' Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 20
' Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 40
End Sub

白茶様
今から挑戦します。
ありがとうございました。
（Ty） 2026/04/24(金) 20:28:43

コメント返信：

[ 一覧(最新更新順) ]

[[20260424174555]] 『図形内の文字サイズを,スピンボタンでサイズ変更』（Ty） ページの最後に飛ぶ

[[20260424174555]]　『図形内の文字サイズを,スピンボタンでサイズ変更』（Ty）　ページの最後に飛ぶ