|
色を変えるのはうまくいかないようですが、形をそろえて一定間隔に並べるなら
Sub Pic_Align()
Dim i As Integer, Pc As Integer
Dim Lp As Single, Tp As Single
Dim Wp As Single, Hp As Single
Pc = ActiveSheet.Pictures.Count
If Pc < 2 Then Exit Sub
With ActiveSheet.Pictures(1)
Lp = .Left: Tp = .Top
Wp = .Width: Hp = .Height
End With
For i = 2 To Pc
With ActiveSheet.Pictures(i)
.Left = Lp: .Top = Tp + Hp + 10
.Width = Wp: .Height = Hp
Tp = .Top
End With
Next i
End Sub
いちおう 2箇所ある With ステートメントプロック内に、
.Interior.ColorIndex = ?
と追加してみて下さい。そちらの環境なら色が着くかもしれません。
|
|