HOME > Q&A > Excel （VBA）

Excel （VBA）
Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2021)
テキストボックスの「テキストに合わせて図形のサイズを調整する」
投稿日時: 23/07/18 08:09:21
投稿者: たかさん@富山

いつもお世話になります。
 
テキストボックスの「テキストに合わせて図形のサイズを調整する」を下記のように
作成しました。
実行後はテキストボックスのプロパティを見ると、ちゃんとチェックは入っているのですが
印刷プレビューで確認しても調整されていません。
 
どこを修正すれば良いでしょうか。
 
Sub テキストボックス調整()
  Dim shp As Shape
  Dim tb As TextBox
 
  For Each shp In ActiveSheet.Shapes
    If shp.Type = msoTextBox Then
    shp.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
   End If
  Next shp
 
End Sub
 
よろしくお願いします。
回答
投稿日時: 23/07/18 09:33:38
投稿者: WinArrow

↓を追加してみてください
  
shp.TextFrame2.WordWrap = msoFalse
 
投稿日時: 23/07/18 10:02:21
投稿者: たかさん@富山

 WinArrowさん、ありがどうございます。
 
　shp.TextFrame2.WordWrap = msoFalseを追加してみましたが
　変化ありません。
 
　テキストボックスの大きさは変更されるのですが
　印刷・プレビューに反映されません。
 
　テキストボックスのプロパティを開いて、チェックが
　入っていることを確認すると、印刷・プレビューが反映されます。
 
　
回答
投稿日時: 23/07/18 15:38:00
投稿者: Suzu

引用:
　テキストボックスのプロパティを開いて、チェックが
　入っていることを確認すると、印刷・プレビューが反映されます。

 
では、一度、対象の Shape の AutoSize に、msoAutoSizeNoneを渡す処理を実行、終了させ
 
改めて、msoAutoSizeShapeToFitText を渡す処理を行ってみてください。
 
 
それでも、発動しないのであれば、その Shepe がグループ化の設定がされてはいませんか？
投稿日時: 23/07/18 19:33:57
投稿者: たかさん@富山

　Suzuさん、ありがとうございます。
　ファイルは会社にあるので、明日確認します。
 
　色々と試したところ、テキストボックスサイズを
　小さくするのは正しく動作しいるが
　印刷で文字が隠れるテキストボックスの処理が
　チェックは出来ているが、印刷すると文字が
　隠れている状況です。
回答
投稿日時: 23/07/18 20:05:44
投稿者: WinArrow

>、印刷すると文字が　隠れている状況です。
 
Excelは表計算ソフトとで、印刷で文字が欠けるなどは、
試行錯誤で対応するところです。ＶＢＡで対処するのは無理ですね・・・

投稿日時: 23/07/18 20:36:58
投稿者: たかさん@富山

　WinArrowさん、ありがとうございます。
 
　EXCELは表計算ソフトであることは十分に
　知っていますがWORDの使いづらさは、もっと
　感じています。
 
　日本語関係はJUSTシステムを未だに使っています。
　スマホの日本語変換もです。
 
　こまめにテキストボックスを調整します。
　ありがとうございました。