こんにちは！
パソコンインストラクター歴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で絶賛✨販売中

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

➋Kindle出版に関する📕 2冊

➌節約に関する📕 1冊

➍読書に関する📕 1冊

➎海外の方向けの📕 3冊

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