谁能告诉我这个EXCEL里面的滚动的字幕源文件在什么地方
发布网友
发布时间:2022-04-28 13:49
我来回答
共2个回答
热心网友
时间:2022-04-28 15:19
源文件在VBA编辑器中。除了楼上的代码之外
打开工作薄和关闭工作薄的时候还有一段代码
以下是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:
进入开发工具,点设计模式,停止字幕;
进入工作表,解除保护;
点击下方姓名(实际是个控件),右键,删除;
但删除后不能运行,等有时间再研究