如何解决OLEObjects.Add 到单元格的右侧
此代码有效(如果在运行它之前,列 A
中已经有一些文本/数字),但它会将按钮放在 B
列的左侧。>
如何调整代码,使按钮转到 A
列的右侧?
Sub Macro1()
Application.ScreenUpdating = False
Dim cell As Range
For Each cell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
If Not IsEmpty(cell) Then
Dim ol As OLEObject
Set ol = ActiveSheet.OLEObjects.Add( _
Filename:="C:\screenshot.png",_
Link:=False,_
displayAsIcon:=True)
With ol
.Top = cell.Offset(0,1).Top
.Left = cell.Offset(0,1).Left
.ShapeRange.LockAspectRatio = msoFalse
.Height = 13
.Width = 10
End With
End If
Next
Application.ScreenUpdating = True
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。