|
楼主 |
发表于 2018-6-23 14:30
|
显示全部楼层
非常感谢老师热情详尽的帮助!代码非常完美地实现了我的想法。学生还有几点疑惑向您请教:
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 = Sheet1.Rows(Sheet1.[A1048576].End(xlUp).Row - 33).Top
End Sub和
Option Explicit
Private Sub Workbook_Open()
timeX = 0
TimerID = SetTimer(0, 0, 100, AddressOf OnTimer)
End Sub
1.应该分别复制粘贴进实际工作表的哪个模块?2.代码里红色填充的数字代表什么意思?3.如果我要变更图片的行列大小,把原图片剪切后重新拍照,新图片怎么无法跟随数据输入动态移动了?
|
|