画像のサイズを揃えて、指定のセルに配置する【ExcelVBA】

こんにちは！
パソコンインストラクター歴12年の
チサです。(*´∀｀)

今日は

ExcelVBAの話

画像のサイズを揃えて、
指定のセルに配置する

っていうのをやったので♪

そのことを書きますね！
(о´∀`о)

実際にやるのはこんなこと

こんなバラバラの大きさの画像を
👇

指定したセル（A1～A3）
に配置したい！

こんな感じ👇

こういうの
画像がたくさんあったら
ちまちま手作業でやるの

めっちゃめんどいですよね💦

そんなわけで！
VBAでやることに🔥

こちらのサイトを参考に
コードを書きました👇

エクセルに挿入した画像をワンクリックでサイズ変更する｜エクセルイエローページ

書いたコードはこちら
👇

Sub all_pc_size_5cm()
    'すべての画像サイズの横幅を5㎝にする（縦横比キープ）
    '28.34646は1cm


    Dim pic As shape
    Dim gyo As Long
    gyo = 1

    For Each pic In ActiveSheet.Shapes
        pic.Select
        Selection.ShapeRange.Width = 28.34646 * 5
        Selection.ShapeRange.LockAspectRatio = msoTrue
        
        pic.Left = Range("A" & gyo).Left '左端の位置設定
        pic.Top = Range("A" & gyo).Top '上端の位置設定
        gyo = gyo + 1
    Next

End Sub

画像を並べる順番は
特に指定してないけど

画像を挿入した順に並びます！
（ExcelVBAの仕様なのかな⁉️）

何枚画像があっても
並べてくれるので
ぜひぜひ試してみて！

ではでは
またあした！
(´꒳`)/

2023年8月19日🍉
新刊、販売しました！

Amazon.co.jp: 【Mac版】Excel＆Word ショートカット力試しドリル Excelスキルアップ eBook : チサ: Kindleストア

Amazonで絶賛✨販売中

➊パソコンに関する📕 5冊

Excelショートカット力試しドリル Excelスキルアップ

Amazon.co.jp: Wordショートカット力試しドリル eBook : チサ: Kindleストア

必ずできる　Excel計算特訓ドリル Excelスキルアップ

【かんたん・たのしい】Excelで作ってあそぼう！ Excelスキルアップ

プロが教える かんたん・かわいい 図形で作るイラスト講座 【PowerPoint】 パソコンでお絵描き

Amazon.co.jp: チサ先生の挫折から学ぶプログラミング特別レッスン eBook : チサ: Kindleストア

➋Kindle出版に関する📕 2冊

ブログより簡単　めざせ！Kindle作家デビュー 初めてのKindle出版

言葉の壁はこわくない　Kindle出版　めざせ！海外デビュー 初めてのKindle出版

➌節約に関する📕 1冊

Amazon.co.jp: あなたもできる 1年で36万円節約する方法 eBook : チサ: Kindleストア

➍読書に関する📕 1冊

ながら読書　耳読のすゝめ

➎海外の方向けの📕 3冊

Repeat after me ! "NANDE-YANEN!": Japanese Kansai dialect dictionary (English Edition)

Amazon.co.jp: 日本關西方言詞典: 日常會話中常用的 50 種關西方言 (Traditional Chinese Edition) eBook : チサ: Kindleストア

Amazon.co.jp: Excel Shortcut Drills: Shortcuts give you more time,more health! (English Edition) 電子書籍: chisa: 洋書

気になる本があれば
試し読みだけでも♪
(´▽｀)