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 (将#修改为@）