excel vba点击按钮 弹出文本选择窗口 上传图片

    Range("B14:C14").Select      '选择单元格 这里选中的是一个合并的单元格

    Sheet3.[a1].Value = Application.GetOpenFilename("所有文件,*.*", , "选择附件")      '获取上传图片的路径

    ActiveSheet.Pictures.Insert(Sheet3.[a1].Value).Select      '上传图片到指定单元格

    Selection.ShapeRange.ScaleWidth 1.246073124, msoFalse, msoScaleFromTopLeft

    Selection.ShapeRange.ScaleHeight 1.2460722908, msoFalse, msoScaleFromTopLeft

    Selection.ShapeRange.Height = 113.3858267717      '设置图片高度

    Selection.ShapeRange.IncrementLeft 41.2162204724   '设置图片位置

    Selection.ShapeRange.IncrementTop 9.4594488189   '设置图片位置