Tags的标签值是怎么添加的
答案:1 悬赏:80 手机版
解决时间 2021-11-12 03:20
- 提问者网友：寂寞梧桐
- 2021-11-11 19:20
Tags的标签值是怎么添加的
最佳答案
- 五星知识达人网友：舊物识亽
- 2021-11-11 20:51
vate Sub Frame1_Layout()
Call myOrder(num)
s = 0
With ActivePresentation.Slides(1)
.Shapes("s1").TextFrame.TextRange.Text = ""
.Shapes("s2").TextFrame.TextRange.Text = ""
End With
End Sub
Sub Spring_Idiom()
s = s + 1
If s <= num Then
With ActivePresentation.Slides(1)
Set shp1 = .Shapes("s1")
Set shp2 = .Shapes("s2")
End With
shp1.TextFrame.TextRange.Text = shp1.Tags(CStr(q(s)))
shp2.TextFrame.TextRange.Text =
Call myOrder(num)
s = 0
With ActivePresentation.Slides(1)
.Shapes("s1").TextFrame.TextRange.Text = ""
.Shapes("s2").TextFrame.TextRange.Text = ""
End With
End Sub
Sub Spring_Idiom()
s = s + 1
If s <= num Then
With ActivePresentation.Slides(1)
Set shp1 = .Shapes("s1")
Set shp2 = .Shapes("s2")
End With
shp1.TextFrame.TextRange.Text = shp1.Tags(CStr(q(s)))
shp2.TextFrame.TextRange.Text =
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯