|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- 'ThisWorkbook
- Option Explicit
- Private Sub Workbook_Open()
- timeX = 0
- TimerID = SetTimer(0, 0, 100, AddressOf OnTimer)
- End Sub
- '图片跟随
- Option Explicit
- Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
- Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
- Public TimerID As Long, timeX As Single
- Public Sub OnTimer()
- On Error Resume Next
- timeX = timeX + 0.1
- Sheet1.Shapes(1).Top = Rows(Sheet1.[A1048576].End(xlUp).Row - 33).Top
- End Sub
复制代码
|
评分
-
2
查看全部评分
-
|