标签控件被循环赋值，然后再粘贴为图片，但无法更新caption的值

200240 · 发表于 2016-3-27 13:12

求教.rar (20.36 KB, 下载次数: 9)

详情见附件，请帮忙看看，谢谢！

200240 · 发表于 2016-3-27 18:41

Private Sub CommandButton1_Click()
Dim i As Long
i = Sheet1.Range("A65536").End(xlUp).Row
Dim j As Long
For j = 1 To Sheet1.UsedRange.Columns(Sheet1.UsedRange.Columns.Count).Column

Cells(i + 1, 1) = Cells(1, j)
Label1.Caption = Cells(2, j)

Label2.Caption = Cells(3, j)

Cells(i + 2, 1).Select

ActiveSheet.Shapes.Range(Array("Label1", "Label2")).Select
Selection.Copy
ActiveSheet.Pictures.Paste.Select
Cells(i + 8, 1) = " "
i = i + 8
Next j

End Sub
代码拷贝出来了，请帮忙看看！两个label的值没有办法再循环时跟着更新值

200240 · 发表于 2016-3-29 17:10

解决了，加一句 DOevent，移交控制权

		自动登录	找回密码
密码			免费注册

[求助] 标签控件被循环赋值，然后再粘贴为图片，但无法更新caption的值