| |
教えて下さい。
下記の1回目で画像を複数枚 整列させています。
次に、そのシートに追加画像をいれたとき
挿入→画像で、複数枚の画像を追加し １回目を実行すると
シート内すべての画像が対象となるので、以前に一部の画像を
上下入れ替えていた場合にも、元に戻ってしまいます。
そこで、
１回目 下記記載で整列
２回目以降 今選択している追加画像のみを整列
というように２種類コマンドボタンを作成したいのですが
２回目以降の設定がうまくいきません。
画像を追加した際に、複数枚選択されてる状態で
２回目以降を実行したら
追加画像のみ、画像サイズが変更されて、以前はりつけていた
既存画像の最後の画像の下から、順番に並んでいくように
ならないでしょうか。よろしくお願い致します。
Private Sub １回目_Click()
Dim shp As Shape
Dim myRng As Range
Dim myC As New Collection
Dim c As Object
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
If shp.Height = 288 And shp.Width = 336 Then
If myRng Is Nothing Then Set myRng = shp.TopLeftCell
If myRng.Row < shp.TopLeftCell.Row Then
Set myRng = shp.TopLeftCell
End If
Else
myC.Add shp
End If
End If
Next shp
For Each c In myC
If myRng Is Nothing Then
Set myRng = ActiveSheet.Range("C6")
Else
Set myRng = myRng.Offset(18)
End If
c.LockAspectRatio = msoTrue
c.Height = 288#
c.Width = 336#
c.Top = myRng.Top
c.left = myRng.left
Next c
End Sub
Private Sub ２回目以降_Click()
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
