[[20190128113324]]　『異なる画像サイズでも同じサイズでトリミングした』（がんばる事務員）　ページの最後に飛ぶ

『異なる画像サイズでも同じサイズでトリミングしたい。』（がんばる事務員）

1、画像、張り付ける為の結合されたセルがいくつかあります。（サイズは決まってます）

2、張り付ける先のサイズに合わせて画像を一括トリミングするマクロがあります。（トリミングサイズは上下左右の値を指定できます）

ただ、問題が発生しました。
元の画像サイズが違うと、上下左右の値を逐一変えなくてはならない事がわかりました。画像が複数あり、いちいち調整するのは手間な為、
何か良い方法があればご教授いただきたいです。

よろしくお願いします。

 Private Sub UserForm_Initialize()
    TextBox1.Text = "1"
    TextBox2.Text = "1"
    TextBox3.Text = "1"
    TextBox4.Text = "1"
 End Sub

 Private Sub 実行_Click()
    With Selection
        .ShapeRange.LockAspectRatio = True
        .ShapeRange.PictureFormat.CropTop = TextBox1.Text
        .ShapeRange.PictureFormat.CropBottom = TextBox2.Text
        .ShapeRange.PictureFormat.CropRight = TextBox3.Text
        .ShapeRange.PictureFormat.CropLeft = TextBox4.Text
        .ShapeRange.LockAspectRatio = msoFalse
    End With
 End Sub

Private Sub 閉じる_Click()

Unload Me

End Sub

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

画像をトリミングする上記以外の方法で、

事前にクッキー型（画像を挿入するセルサイズの）を作成し、
型でくり抜くような方法でも良いと思ったのですが、

型のサイズを指定するとなると難しいですかね。。

「図形に合わせてトリミング」の機能がありますが、そのようなイメージで自分サイズに型を作れれば良いのですが、、、

（がんばる事務員） 2019/01/28(月) 13:28

画素数を直接指定するのではなく、パーセント指定にして、画像サイズから計算して1枚ずつ指定するとか？

ちなみに、クッキー型で抜くのは、画像をクリックすると出てくる「図ツール」の「トリミング」で、「図形に合わせてトリミング」を使えば、そんな感じになりますよ。作業の自動化はできませんが。
（???） 2019/01/28(月) 13:44

???さま

ご回答頂きありがとうございます。
パーセント指定という方法があるんですね！調べてためしてみます。
ありがとうございました。

（がんばる事務員） 2019/01/29(火) 09:54

いや、パーセント指定という方法ではなく、画素数をパーセント計算すれば、大きな画像でも小さな画像でも、同じバランスの切り取りができる、という事ですよ？元のバランスが何％だったかを計算し、同じ比率になるように画素数を計算するのです。
（???） 2019/01/29(火) 10:42

コメント返信：

[ 一覧(最新更新順) ]

[[20190128113324]] 『異なる画像サイズでも同じサイズでトリミングした』（がんばる事務員） ページの最後に飛ぶ

[[20190128113324]]　『異なる画像サイズでも同じサイズでトリミングした』（がんばる事務員）　ページの最後に飛ぶ