図を動かす　 次の文書

Dim i
Dim j
Dim o
Sub Auto_Open()
Application.DisplayAlerts = False

j = 1
i = 1
o = 1
Do Until i > 75
bb
cc
dd
i = i + 1
Loop

'ActiveWorkbook.Close
'エクセルの終了
'Application.Quit

End Sub
Sub bb()
ActiveSheet.Shapes("Object 6").Select
Selection.ShapeRange.IncrementLeft -2
Selection.ShapeRange.IncrementTop 1

k = Int(i / 70)
If k = 0 Then k = 1
m = i / 4
n = Int(i / 4)
If m = n Then
Selection.ShapeRange.ScaleWidth 1.1, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromBottomRight
End If
Range(Cells(1, k), Cells(1, k)).Select

End Sub

Sub cc()
ActiveSheet.Shapes("Object 7").Select
Selection.ShapeRange.IncrementLeft -2
Selection.ShapeRange.IncrementTop 1

k = Int(i / 70)
If k = 0 Then k = 1
m = i / 4
n = Int(i / 4)
If m = n Then

　



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

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