• ベストアンサー

マクロで画像の倍率変更方法

いつもお世話になっております。 現在マクロでエクセルに貼り付けた図の倍率を変更することができるか調べているのですがどこにもありません。 普段は図の書式設定→サイズ→倍率の高さの数値を変更 という動作を行っているので、この操作をマクロでできる方法を知っている方がいらっしゃいましたらお教えください。

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.3

Zoomなどの表現法ではなく、具体的なHeiht,Widthを1.5倍した数値を指定するものと考えてはどうでしょう。 Selection.ShapeRange.Height = Selection.ShapeRange.Height * 1.5 Selection.ShapeRange.Width = Selection.ShapeRange.Width * 1.5

KaitouKonan
質問者

お礼

上に書いてあるものをマクロで実行してみたのですが、画像が縦も横も1.5倍ではなく2倍以上になりました>< 原因がわかりません;_;

KaitouKonan
質問者

補足

以下のようにして実行したらできました。ありがとうございました。 Selection.ShapeRange.LockAspectRatio = True Selection.ShapeRange.Height = Selection.ShapeRange.Height * 0.5

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (2)

noname#8445
noname#8445
回答No.2

#1です とりあえず持ってきました ActiveSheet.Shapes("aaa").Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 285.75 Selection.ShapeRange.Width = 440.25 Selection.ShapeRange.Rotation = 0# aaaは図の名前です

KaitouKonan
質問者

お礼

ありがとうございます。 マクロの記録なんていいものがあるんですね。 しかし、残念ながら高さと幅は固定ではないのでこのままでは使えなさそうです。 でもこれから分からなかったらとりあえず記録してみます。有難うございました。

全文を見る
すると、全ての回答が全文表示されます。
noname#8445
noname#8445
回答No.1

マクロの記録で実際に行ってみて ソースを見るしかないと思うのですが・・・ このPC エクセルが入っていないもので、返信があれば 貼り付けますが

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • エクセルにて挿入する画像を任意のサイズに変更できないのでしょうか?

    エクセルで「挿入」→「図」→「ファイルから」と進んでマイピクチャから画像を挿入すると、エクセルには、元データが大きいのかかなり大きなサイズで挿入されます。普段は、図の書式設定でサイズ→倍率を調整して挿入される図のサイズを変えています。この変更作業が面倒で・・・。ファイルからエクセルに挿入するときに画像を任意のサイズに設定を変更するなんてことはできないのでしょうか?エクセル2003を現在使用しています。教えてください。

  • Excel 図の挿入を小さい倍率で読み込むように

    エクセルで図を挿入したとき 倍率100%の特大サイズで図が挿入されてしまい 毎回 画像右クリック 図の書式設定からサイズのタブを選び その中の倍率を50%や10%に変換しています。 この作業が地味に時間かかってしまい困っております 図を挿入するときに初期設定で10%で挿入する方法など御座いますでしょうか? Excelに詳しい方ご教授お願いします。

  • 表示倍率を変更させない方法

    エクセルのマクロで、ユーザーに表示倍率の変更をさせない方法を教えて頂けないでしょうか。 シートのスクロールを制限して、シートの一部しかユーザーに見せたくないのですが、表示倍率を変更されたら簡単に見られてしまいます。 メニュー(エクセル2007ではリボン?)の操作を不可能にする方法もありますが、Ctrl+マウスのホイールで簡単に倍率変更できてしまいます。 シートの一部を非表示にして保護をしてしまえばいいのですが、その方法だと非表示の部分が空白であったとしてもそのエクセルファイルの容量が膨大に増えてしまいます。 できるだけ軽くしたいので、もしいい方法が分かる方がいらっしゃいましたら教えて下さい。エクセル2007を使用していますが、2003以前を前提にした方法でもいいです。

  • 画像サイズを変更するマクロ

    Excelで、アクティブシート内の画像(msoPicture)全てを、縦横比を保持したまま一括で縮小するマクロはありますでしょうか? 元のサイズは、 高さ:12.7cm、幅:16.93cm 変更後のサイズは 高さ:6.82cm、幅:10.12cm (高さの倍率81%、幅の倍率76% です) 説明に不足がありましたら、お手数ですがご指摘頂けますと幸いです。 よろしくお願いいたします。

  • マクロでのみ変更可能なセルの設定

    エクセルで 普段は勝手にセルを変更されたくないのでロックするのですが マクロで動作させたときのみセルの内容を変更をさせたいです こんな設定でできるでしょうか よろしくお願いします

  • エクセルの図が大きくなる

    いつもお世話になっております。 エクセル 2003 で、図の貼り付けているデータを開くと、その時はいいのですが、印刷すると、図が大きくなって印刷されて、なお且つ、画面上でも大きくなってしまいます。 各シート毎に、図を右クリックして、図の書式設定で、サイズの倍率で、「元のサイズを基準にする」のチェックを外すと大丈夫ですが、他の方法で、一発で設定出来る方法はないでしょうか?

  • オートシェイプに関するマクロ

    エクセルのオートシェイプの書式設定のサイズの倍率(縦横比を固定)を、120%にするマクロって可能でしょうか? 沢山の図形の大きさを調節する作業があるのですが、その都度オートシェイプの書式設定を開いて値を入力すると大変な手間になってしまいます。 図形をセレクトしてマクロを実行するだけで、大きさを変化させるようにしたいのですが。 ご存知の方がいましたら、よろしくお願いします。

  • EXCELに貼り付けた画像の倍率の規定値の設定

    EXCELに貼り付けた画像の倍率の規定値の設定について質問させてください。 パソコンの画面をクリップボードに保存(PrtScキーを押す)して、EXCELに貼付けしているのですが、 A4縦で印刷したいので、貼り付けた画像をダブルクリックして、サイズのタブをクリックして、倍率の高さ100%の▼をクリックして70%にしています。 が、この作業をずぅーと繰り返しているので、貼り付けた時に最初から倍率が70%で貼り付けば随分作業が楽になると思いますが、そのような設定は可能なんでしょうか? 同様に、図をファイルから挿入の時にも同じ作業を行っているので同様に倍率の初期値は設定できるのでしょうか? EXCEL2000を使用しています。

  • パワーポイント 図のサイズ変更が出来ない

    パワーポイントの2003を使用しています。 エクセルから、コピー⇒パワーポイント⇒編集⇒形式を指定して貼り付け⇒図(拡張メタファイル)で図を貼り付けた後、 その図のサイズを変更するために、図の書式設定⇒サイズで、比率を変更しているのですが、 昨日まで出来ていたのに、サイズの倍率のところが%が入っておらず、空白になっていて、サイズを入れるとその図がすごく小さく縮小されてしまいます。 特に設定をさわったわけではなのに、このような現象になってしまって、作業効率が悪く困っています。 ちなみに、新しいパワポに貼り付けをしたり、別名保存、再起動などは行ってみましたが、それでも駄目でした。 どなたか直しかたをご存知の方がいらっしゃいましたら、教えていただけますでしょうか。 よろしくお願い致します。

  • Wordに挿入の図のサイズについて

    Wordに図を挿入し 図の書式設定で、サイズを変更しようとしたとき サイズの倍率が100%ではなく、はじめから 50%、50%になっているのですが 100%に戻す方法はありますでしょうか?

専門家に質問してみよう