エクセルの拡大・縮小表示

質問

エクセル上での拡大縮小表示、スクロールをホイールマウスを使って、もっとスムーズに出来ないものでしょうか？
拡大はまだ良いのですが、縮小のときにセンターがどんどんズレていってしまいますよね。
スクロールも、『手づかみ』でドラッグするようなものの方が、断然やりやすいと思うのですが・・。
CADなんかのスクロールをイメージしているんですが、不可能なのでしょうか？

回答No.6

miwaki · ベストアンサー

質問者に補足説明を要求した責任上、お答えします。
エクセルの画面に、図形描画で箱を作り、塗りつぶしで地図を入れたらいかがでしょうか。これならポインタのドラグでその箱を拡大、縮小、回転、移動することにより、地図も変化します。

写真または地図の画像がJPGでDドライブのABCというフォルダにPICTnn.JPGという名で入っているとして、セルB1にnnの値を入れることにより、そのときの箱の大きさによって画像が表示されるようにしたマクロは、下のとおりです。
予めシート１に図形描画で箱を描いておき、このマクロをシート1のマクロに貼り付けておいて、セルB1にnnの値を入力すると画像が出てきます。
試してください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 2 And Len(Range("B1")) > 0 Then
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.UserPicture "D:\ABC\PICT" & Range("B1") & ".JPG"
Range("B1").Select
End If
End Sub

お礼

ありがとうございます。実は、地図の話とは別に、特定フォルダに入れた写真ファイルを自動的に引っ張ってくるような方法を探していたのですが、意外なところで、全く希望通りのマクロを教えていただき、非常にうれしいです。
拡大・縮小の方が、結局のところ、ツールバーに虫眼鏡±を入れて、それで行うのが簡単かつ便利かなぁ～と思います。
本当にありがとうございました。

補足

すみません、ついでに教えて頂けないでしょうか。
上記マクロの一行目の記載は何を意味しているのでしょうか？
また、WorkBookのマクロとするにはどうしたら良いでしょうか？
その場合、いくつか書かれているShapeのうち、どれに挿入するかを指定するにはどうしたら良いでしょうか？

回答No.5

noname#9284

補足を拝見しました。

では、縮小率の違う画像を数枚用意し、
SheetA1の数字によって画像を切り替える方法はいかがでしょうか？
あとは応用です。

この方法は画像ファイルをじかに参照するのではなく、Excelの同じブックの、切り替え表示させたいシートとは別のシート中に取り込んでおいてそれを参照する方法です。なので実用に耐えるかどうかは画像の重さとお使いのＰＣの処理能力にかかってきます。
Sheet1のＡ１に入力したコードによってＢ１に画像が表示されます。

●Sheet2・・・画像のリストを作ります。

最初に[ツール]-[オプション]の表示タブの下のほう、「枠線」のチェックをはずします。
２行目から１１行目まで行の高さを画像がはみ出さず入るように広げます。
Ａ１から右に縮小率、地図。
Ａ２以下に１０００から１００００までを入力（縮小率について知らないので仮にこの数字としました）
Ａ１は入力規則を使って定められた数値が入力できるようにした方がいいですね。
Ｂ２以下はセルに収まるようにひとつずつ画像を配置します。
図のことですが、縮小した地図、拡大した地図を並べ、図ツールバーを出してトリミングし、
見かけの大きさを揃えます。
これをSheet2のB列に配置します。

[挿入]-[名前]-[定義] （またはCtrl＋F3）で以下の名前定義を作成します。

名前: chizu
参照範囲: =OFFSET(Sheet2!$A$1,MATCH($A$1,Sheet2!$A$2:$A$11,0),1)

●Sheet1・・・画像を表示させます。

１行目は行の高さをSheet2の２行目以降と同じ高さに広げます。

Sheet2のＢ１をコピーして（気をつけてください画像じゃありません、セルを選択してコピーです）
Sheet1のＢ１をアクティブにしてShift キーを押しながら [編集]-[図のリンク貼り付け]。
ピクチャオブジェクト（出来た図のことです。セルじゃありません、図です）を選択して数式バーに =chizuと入力。
Sheet1のA1 の値によって
ピクチャオブジェクトに表示されるセルが変化します。

Ａ１に、表にない数値が入った時はピクチャオブジェクトには何も表示されません。

お礼

さっそく、やってみました。
なるほど、こんなやり方もあるんですね。感動しました。ただ、任意の箇所の拡大縮小を行う都合上、膨大な量の地形図を作らなくてはなりません。残念ながらちょっと現実的ではないです。
ただ、他にいろいろ応用が出来そうな技ですね。ありがとうございました。

回答No.4

noname#9284

おっしゃる通りですよね。
CADのような俯瞰図やアクロバットのPDFファイルのような手づかみ移動があれば便利なんですけど。
ExcelはDTPソフトでも文章編集ソフトでもなく、
計算が得意なソフトなのでそういった機能はあまり持っていないようです。
私も「そんなもんだ」と思って使っています。
発想を変えてキー操作で済ませるのはどうでしょうか。

まず、上下のスクロールはPageUp、PageDownキーを押し続けると
高速でスクロールできます。
使用範囲の最後のセルに飛ぶにはCtrlを押しながらEndキー(ノートパソコンの場合少々違います）
左上のセルに飛ぶにはCtrlを押しながらHomeキー。

よく飛びたい場所には名前をつける、などがいいと思います。

エクセル技道場
「セル選択」
「名前定義」

参考URL：

http://www2.odn.ne.jp/excel/waza/cell.html,http://www2.odn.ne.jp/excel/waza/name.html

回答No.3

gogogo123

印刷プレビューをしてるときのことですか
他の方のお尋ねと同じ　どのような状況でしょうか

回答No.2

miwaki

エクセル上で何を拡大縮小表示するのですか？
ウィンドウそれとも貼り付けた画像それともセルの文字？
質問の意味がわかりません。

補足

すみません、言葉足らずでした。
EXCEL上で、地理情報システム（GIS）の簡略版みたいのを作りたいと思っています。データベース管理はEXCELならば得意とするところですが、メイン画面にもってくる地図が問題で、地図を簡単に拡大縮小したり、スクロールできるようにしたいのです。
マクロも組んでみようと思ったのですが、素人なので、うまく出来ませんでした。
そんな状況です。よろしくお力を貸してください。

回答No.1

miwaki

エクセル上で何を拡大縮小表示するのですか？
ウィンドウそれとも貼り付けた画像それともセルの文字？
質問の意味がわかりません。
だから誰も答えられないのと違いマッカ？