• ベストアンサー

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

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

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

  • ベストアンサー
  • kkkkkm
  • ベストアンサー率65% (1624/2466)
回答No.2

No.1の補足です。 縦横比を解除してサイズ変更後再度固定にセットしたい場合は img.LockAspectRatio = msoFalse img.Height = Application.CentimetersToPoints(6.82) img.Width = Application.CentimetersToPoints(10.12) img.LockAspectRatio = msoTrue

yopptommy
質問者

お礼

お教えいただきありがとうございます!早速実装できました! ご丁寧に説明頂き助かりました。

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

その他の回答 (1)

  • kkkkkm
  • ベストアンサー率65% (1624/2466)
回答No.1

縦横比を固定したら幅有線で高さのサイズが決まると思いますので、縦横サイズ指定でしたら縦横比は固定しない方がいいと思います。 Sub Test() Dim img As Shape For Each img In ActiveSheet.Shapes If img.Type = msoPicture Then img.Height = Application.CentimetersToPoints(6.82) img.Width = Application.CentimetersToPoints(10.12) End If Next End Sub

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

関連するQ&A

  • マクロの画像サイズについてお聞きしたいのです。

    マクロの画像サイズについてお聞きしたいのです。 マクロの記録で画像を縦横比を固定するで高さを4.23cmに設定したら、 横が5.64cmになり、下のようなのマクロの値になりました。 そこで質問なのですが、画像の1辺(高さ)を4.23cm(約120pt)に定めると もう一辺が縦横比の固定で自動的に定まるマクロは作れますか? 表に入る大きさが高さが基準で、いろんなサイズでテストしてみた結果、 サイズ違いの画像ができてしまう時があります。 識者の方、よろしくお願いします。 【↓今作成中マクロの一部】 With Selection.ShapeRange .LockAspectRatio = msoTrue .Height = 120# .Width = 159.75 .Rotation = 0# Selection.Cut ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:= _ False Range("A5").Select End With

  • 写真サイズの変更

    Photoshop Elements6でホームページに載せる写真サイズ変更しているのですが・・・ 縦横比を固定しないで、ピクセル数の幅・高さを入力し縮小した場合横に広がって縮小されるのですが何か良い方法はないでしょうか? 縦横比を固定しないと、うまく縮小されないのでしょうか?

  • 「エクセルのシートに決まったサイズの画像を貼り付けたい」

    「エクセルのシートに決まったサイズの画像を貼り付けたい」 http://okwave.jp/qa/q1182506.html こちらの質問を見つけ試してみたのですが、うまくいきませんでした。 縦横比を固定にせず、8.76cm×12.01cmという決まったサイズで画像を貼り付けたいです。 また、この方法だと先にセルの大きさを調整するようなのですが、セルの大きさの設定はこのように細かいサイズでできるのでしょうか? マクロというものをいじったことがないので、ほとほと困っております。 助言をお願いいたします。

  • エクセルで同じ大きさの画像だけを並び替えるマクロ

    仕事でエクセルのシートに600枚ほどの写真画像を並べる作業をしなければなりません。 画像のサイズは2種類あり、  ・大きなサイズの画像(高さ5.73cm、幅7.51cm)が2枚、  ・小さなサイズの画像(高さ4.31cm、幅5.77cm)約50枚(以下n枚とします) を1つのsheetに配置します。 このとき、大きなサイズの画像はシートの右上に並べ、小さなサイズの画像は横4枚×縦(n/4)+1列に並べなければなりません。シート上での配置のイメージは下のような感じです。 ●:大きなサイズの画像 ☆:小さなサイズの画像 --:シートの範囲だと思ってください -----------------------------                  ●● ☆     ☆     ☆     ☆ ☆     ☆     ☆     ☆ ☆     ☆     ☆     ☆ ☆     ☆     ☆     ☆ ・ ・(途中省略) ・ ☆     ☆     ☆     ☆ ----------------------------- シート右上に配置されてある大きなサイズの画像配置を変更せずに、小さなサイズの画像のみを選択して横4枚の格子状に並べるにはどのようなマクロを組めばよいでしょうか? 過去の質問QNo.3864319を参考にしましたが、この方法では同じサイズの画像すべてを並べ替えているように設定されてあります。したがって、このマクロを実行すると、位置を変えたくない大きなサイズの画像も含めて格子状に並べ替えられてしまうため、困っています。並べ替えをしなければならない画像は3000枚くらいになると思われるので、このマクロを完成させてしまわないと作業が締め切りに間に合わないのでとっても困っています。 どうかよろしくお願いいたします。

  • Wordに貼り付けた画像のサイズが1%になる

    Wordに貼り付けた画像のサイズを変更する際、 「拡大/縮小」の「高さ」と「幅」に数値(半角)を入力したり▲▼で調節しようとすると 指定した値にはならずに1%になってしまいます。 実際のサイズ変更の手順は次の通りです。 (1) 画像を右クリック>サイズ>「トリミング範囲」に数値を入力または▲▼で調節 (2) 「拡大/縮小」の▲▼を適当に押す (3) 「拡大/縮小」に数値を入力するか、画像の角をドラッグしてサイズを調節 基本的に縦横比を固定していますが、(1)をすると高さと幅の%が異なってしまうので (2)で一旦高さと幅の%を揃え、その後で任意のサイズに調節しています。 この(2)の段階で数値を入力したり▲▼を押した時に、よく勝手に1%になってしまうのですが、 (2)を飛ばして(3)をすると本来の縦横比にならないので(2)の操作は省けません。 必ず1%になるわけではなく、なる時とならない時がありますが法則がわかりません。 どうすれば1%にならずに任意のサイズに調節できるでしょうか? また、原因がわかればそちらも教えていただければ助かります。 よろしくお願いいたします。

  • 写真の一括サイズ変更

    サイズがバラバラの多くの写真データ(100枚ほど)を一括でサイズ変更したいのですがどうすればいいでしょうか? 縦横比は変えずに、例えば、5cm×5cmの枠の中におさまるぎりぎりまでサイズを変えたいのです。例えば20cm×25cmの写真であったら、4cm×5cmの写真にしたいのです。これを一括で行いたいのですが、写真のサイズがバラバラなため、どのようにすればいいか分かりません。ワード、エクセル、フォトショップなどのソフトを使ってどうにか一括でサイズ変更をしたいのですが、やり方を教えていただけたら幸いです。よろしくお願いします。

  • エクセル2003の写真のサイズについて

    エクセル2003の写真のサイズについて デスクトップPC(モニタ解像度1280*1024)でエクセルで仕事に使う『指示書のフォーマット』を作成しました。セルに写真サイズ480*640を挿入して倍率を30%(高さ5.08cm、幅6.77cm)にするとちょうど収まるようなフォーマットです。 他のノートPC(モニタ解像度1920*1200)でも指示書を作成したいのですが、 ノートPCで同じように写真を挿入し倍率を30%(高さ5.08cm、幅6.77cm)にすると横幅のみはみ出てしまいす。 倍率を高さ30%、幅27%(高さ5.08cm、幅6.1cm)にするとちょうど収まります。 なぜ、ノートPCだと、幅6.1cmでちょうどフォーマットに合うのでしょうか? 写真のプロパティの原型サイズはどちらも高さ16.93cm、幅22.58cmで同じです。 現況はノートPCでは幅のみ倍率27%で使用していますが、 いまいち写真サイズの仕組みが理解できていません。 エクセルで幅6.77cmならば、どのPCで6.77cmではないのですか? なぜデスクトップPCの横幅6.77cm=ノートPCの横幅6.1cmなのでしょうか? ちなみに高さはどちらも5.08cmでぴったりです。 指示書フォーマットは写真を横に3枚並べるので、ノートPCで幅6.77だとA4からはみ出てしまい 印刷できません。(なので6.1cmにしています。) わかる方がいましたら、初心者の私でもわかりやすくご教授頂けないでしょうか? よろしくお願いします。

  • エクセルの「図の挿入」のサイズとプロパティ

    エクセルの「図の挿入」のサイズとプロパティ エクセル2007(windowsXP 64bit)でエクセルに「図の挿入」でgifを貼り付けています。 サイズとプロパティで、”縦横比を固定する””元のサイズを基準にする”にチェックをつけて拡大/縮小%を入れています。 これをエクセル2002(windowsXP 32bit)で開くと、拡大/縮小%が「高さ70% 幅65%」というように違ってしまします。 また、これをエクセル2002(windowsXP 32bit)で、サイズとプロパティで、”縦横比を固定する””元のサイズを基準にする”にチェックをつけて拡大/縮小%を入れて作成したものをエクセル2007(windowsXP 64bit)で開くと、拡大/縮小%が違っています。 これが変わらないようにするにはどうすればいいのでしょうか?

  • Power Point2007 表サイズ修正方法

    Power Point2007 を使用しております。 Excelで作成した表をいくつか貼り付けているのですが、 出力する用紙サイズを変更にともない 表をまとめて縮小したいと考えています。 それぞれ、縦横サイズの違う表を配置しているので、 縦横比そのままの%(パーセント)で縮小したいと 思うのですが方法がわかりません。 今まで、2003を使っていたので、 2007ですと勝手がわからず、ご質問しました。 一つ試した方法としては、 [表ツール] の [レイアウト] タブの [表のサイズ] で、 [高さ] ボックスと [幅] ボックスに目的のサイズを入力 [縦横比を固定する] チェック ボックスをオン こちらですと、縦横の数値を入れないといけないので まとめて同じバランスで縮小できませんでした。 そして、表は小さくなっても文字は大きいサイズのままのため 文字の大きさ以下には表のサイズが変更されませんでした。 文字も表の枠組みも一緒に縮小し、かつ %で縮小する方法がありましたら、教えていただきたいです。 宜しくお願い致します。

  • パワーポイント2010で画像のマクロ

    はじめまして  マクロ初心者なので、教えていただけたら幸いです。 パワーポイント(以後パワポ)上で、多量の画像をしなければならず、 処理としましては、 自分でやる作業は、パワホ上で、挿入 画像選択 パワホのスライドの上に表示される。 ここからマクロをくみたいのです。 マクロ内容 画像を選択、画像サイズを高さ15.24→5.3cm 幅20.32→7.07cmに変更したい。 マクロの実行をする。→ 画像サイズが変わっている。 すいません。初心者なので、わかりやすくおしえてくれませんか?