EXCELマクロで状態を取得したい

質問

EXCELマクロでShrinkToFitの状態(True,false)を取得したいのですが・・・
どうやって取得したらよいかわかりません。
出来るのかどうかもわかりません。

ご存知の方教えてください。

回答No.4

karorumon · ベストアンサー

できるかどうかわかりませんが、

if　Worksheets("Sheet1").Range("A1").ShrinkToFit = True　then
　Msgbox　"ShrinkToFitはTrueだよ！"
Else
　Msgbox　"ShrinkToFitはFalseだよ！"
End　if

とかですかね…？

お礼

解決しました。ありがとうございました。

回答No.3

moon00

こういう感じでしょうか。

Sub test()
Dim A As Range
Dim Flg As Boolean

Set A = ActiveCell
Flg = A.ShrinkToFit

End Sub

回答No.2

karorumon

http://www.big.or.jp/~seto/vbaref/vbaref5.htm

取得するのではなく、
設定するのだと思います。

Worksheets("Sheet1").Range("A1").ShrinkToFit = True

Sheet1のA1を縮小表示？

お礼

早速の回答ありがとうございます。

説明が、わかりにくくて、すみません。

縮小表示　が、有効設定か無効設定かを知りたいのです。

ShrinkToFit が、True か False を取得したいのですが、可能でしょうか？

回答No.1

usami33

構文 ： [ Range ].ShrinkToFit
Sub TEST1()

Range("A1").ShrinkToFit = True '「縮小して全体を表示する」を有効にする
Range("B1").ShrinkToFit = False '「縮小して全体を表示する」を無効にする

End Sub

お礼

早速の回答ありがとうございます。

説明が、わかりにくくて、すみません。

縮小して全体を表示する　が、有効設定か無効設定かを知りたいのです。

ShrinkToFit が、True か False を取得したいのですが、可能でしょうか？