Már tudod, miket kell átírnod a makrókban.
Option Explicit
Public kepszam As Integer
Sub Start()
Cells(1) = "OK"
kepszam = 1
Kepek
End Sub
Sub Kepek()
Const utvonal = "D:\Jpg\Új\"
If Cells(1) = "OK" Then
Application.OnTime Now + TimeSerial(0, 0, 2), "Kepek", , True
ActiveSheet.Shapes.Range("Alakzat").Fill.UserPicture utvonal & kepszam & ".jpg"
End If
kepszam = kepszam + 1
If kepszam > 7 Then kepszam = 1
End Sub
Sub Abbhagy()
Cells(1) = "Stop"
End Sub
A Start és az Abbhagy makrókat 1-1 gombhoz rendelheted.
-
A hozzászólás módosításra került: 1 year, 8 months telt el-delila.