Question

此Excel宏用于将图片粘贴到Excel单元格注释中。它工作正常。现在，我需要改变它。图片应旋转270度＆amp;然后粘贴在单元格注释中。当我尝试.Comment.Shape.Rotation = 270时失败并发送了运行时错误＆＃39; 70＆＃39; ＆＃34;权限被拒绝＆＃34;。＆＃34 ;.我认为图片应该贴上＆amp;在一些临时位置或在记忆中旋转然后回叫＆amp;贴在单元格评论中。我有+600图片，他们的手动旋转是非常有限的时间内的大任务。请帮忙解决这个问题。感谢

Sub InsertPictures()
    Dim rCell As Range
    Dim RNG As Range
    Dim strPath As String
    strPath = "C:\Users\Public\Pictures\Sample Pictures"
    With Sheets("Sheet1")
        Set RNG = Range("A2:A600")
    End With
    For Each rCell In RNG
        If Dir$(strPath & "\" & cll.Value & ".jpg") <> "" Then
            With cll
                .ClearComments
                .AddComment ("")
                .Comment.Shape.Fill.UserPicture (strPath & "\" & cll.Value & ".jpg")
                .Comment.Shape.Height = 160
                .Comment.Shape.Width = 120
        '.Comment.Shape.Rotation = 270   'Got Error Message "Permission Denied"
                .Comment.Shape.LockAspectRatio = msoTrue
                End With
        End If
    Next rCell
End Sub

Answer 1

这不是vba解决方案，但可能会有所帮助。使用Infranview。此应用程序可以通过单击旋转文件夹中的所有图片。文件 - ＆GT;批量转换/重命名......

Excel宏用于在单元格注释中粘贴ROTATED图片

1 个答案: