谁能告诉我这个EXCEL里面的滚动的字幕源文件在什么地方
发布网友
发布时间：2022-04-28 13:49
共2个回答
热心网友
时间：2022-04-28 15:19
打开工作薄和关闭工作薄的时候还有一段代码
以下是thisworkbook的代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Shapes("text").Visible = False
ActiveSheet.Shapes("text2").Visible = False
End Sub
Private Sub Workbook_Open()
Worksheets("Sheet1").EnableSelection = xlNoSelection
zimu
End Sub
以下是主代码
Sub zimu()
Dim i, j As Integer
Do While True
ActiveSheet.Shapes("text2").Visible = False
ActiveSheet.Shapes("text").Visible = True
ActiveSheet.Shapes("text").Height = 0
ActiveSheet.Shapes("text3").Visible = True
j = 0
For i = 271.5 To 15.5 Step -1
ActiveSheet.Shapes("text").Top = i
j = j + 1
ActiveSheet.Shapes("text").Height = j
DoEvents
Next i
ActiveSheet.Shapes("text2").Left = ActiveSheet.Shapes("text").Left
ActiveSheet.Shapes("text2").Top = ActiveSheet.Shapes("text").Top - 1
ActiveSheet.Shapes("text2").Visible = True
ActiveSheet.Shapes("text").Visible = False
For i = 253 To 0 Step -1
ActiveSheet.Shapes("text2").Height = i
DoEvents
Next i
ActiveSheet.Shapes("text2").Visible = False
Loop
End Sub
需要删除作者名字和日期，或需要替换这个名字或日期
不能直接删除这个控件，删除控件后会出错
先取消工作表保护（幸运的是工作表保护没密码）
然后双击这个控件（名字和日期）
打开属性窗口，找到picture这个属性，将属性直接修改成(None)
这样，这个控件的内容就没有了
热心网友
时间：2022-04-28 16:37
Sub zimu()
Dim i, j As Integer
Do While True
ActiveSheet.Shapes("text2").Visible = False
ActiveSheet.Shapes("text").Visible = True
ActiveSheet.Shapes("text").Height = 0
ActiveSheet.Shapes("text3").Visible = True
j = 0
For i = 271.5 To 15.5 Step -1
ActiveSheet.Shapes("text").Top = i
j = j + 1
ActiveSheet.Shapes("text").Height = j
DoEvents
Next i
ActiveSheet.Shapes("text2").Left = ActiveSheet.Shapes("text").Left
ActiveSheet.Shapes("text2").Top = ActiveSheet.Shapes("text").Top - 1
ActiveSheet.Shapes("text2").Visible = True
ActiveSheet.Shapes("text").Visible = False
For i = 253 To 0 Step -1
ActiveSheet.Shapes("text2").Height = i
DoEvents
Next i
ActiveSheet.Shapes("text2").Visible = False
Loop
End Sub
删除名字方法Excel07：
进入开发工具，点设计模式，停止字幕；
进入工作表，解除保护；
点击下方姓名（实际是个控件），右键，删除；
但删除后不能运行，等有时间再研究
