図のサイズ変更  次の文書

Sub サイズ変更()
i = 0
For Each sp In ActiveSheet.Shapes
If sp.Name = "変更" Or sp.Name = "削除" Then
ss = ss
Else
i = i + 1
Select Case i
Case 1
上から = 30
Case 2
上から = 280
Case 3
上から = 530
End Select
sp.LockAspectRatio = False
sp.Placement = xlFreeFloating
sp.Placement = xlMove

sp.Width = 300
sp.Height = 240
sp.Left = 10
sp.Top = 上から
End If

Next
End Sub

 



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)