VBAで動的に印刷範囲を設定する方法について

質問

ExcelのVBAを使って資料を作成しています。
一部テキストボックスを貼り付けているのですが、
テキストボックスのサイズが動的なため、そのサイズにあわせて
印刷範囲を設定をおこないたのですがVBAでの設定方法がわかりません。

例）
テキストボックスの下の文字は印刷範囲外にしたいため、
図１の場合、印刷範囲を"A1:C7"
図2の場合、印刷範囲を"A1:B6"
にしたいです。

アドバイスをお願いいたします。

回答No.1

watabe007 · ベストアンサー

こんにちは
テキストボックスの右下のアドレスは以下で求められます
MsgBox ActiveSheet.Shapes("テキスト 1").BottomRightCell.Address

A1セルからテキストボックスの右下のセルまで印刷なら
With ActiveSheet.Shapes("テキスト 1").BottomRightCell
　　ActiveSheet.Range("A1:" & .Address).PrintOut
End With

お礼

ありがとうございます！
できました！！！