求助:大神看过来,EXCEL中,利用VBA插入图片Shapes.AddPicture,解决图像失真

←か淡定☆ ヾ 2019-09-02 08:46:10
VBA 插入图片到EXCEL单元格的后,失真很严重,简直了!大神帮帮我,正确的代码怎么写啊
Private Sub CommandButton5_Click()
Dim rng, wj, i As Integer

    With Application.FileDialog(msoFileDialogFilePicker)
     .Title = "选择图片"
    If .Show Then
        '获取到路径
         wj = .SelectedItems(1)
    End If
    End With
   
    i = Sheets("销售记录").Cells(Rows.Count, 1).End(3).row
    Set rng = Cells(i, 8)
    ActiveSheet.Shapes.AddPicture(wj, True, True, rng.Left, rng.Top, rng.Width, rng.Height).Placement = xlMoveAndSize
End Sub

谢谢!
...全文
2060 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
liulang0808 2019-09-03
  • 打赏
  • 举报
回复
楼主粘贴的图片直接设置了大小,如果不合符要求自然失真的

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧