用宏批量插入图片的时候，图片错位，不在指定单元格内

lalu7libin

如题，用宏插入的时候图片未在指定单元格内。

lalu7libin

求解决，有时候出现，有时候正常，想了解是什么原因导致的，谢谢

lalu7libin

Sub 图片()
On Error Resume Next
Dim MR As Range
For Each MR In Selection
  If Not IsEmpty(MR) Then
    MR.Select
    ML = MR.Left
    MT = MR.Top
    MW = MR.Width
    MH = MR.Height
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    Selection.ShapeRange.Fill.UserPicture _
       ActiveWorkbook.Path & "\" & MR.Value & ".jpg"     '当前文件所在目录下以当前单元内容为名称的.jpg图片
   End If
Next
End Sub


Sub 图片()
On Error Resume Next
Dim MR As Range
For Each MR In Selection
  If Not IsEmpty(MR) Then
    MR.Select
    ML = MR.Left
    MT = MR.Top
    MW = MR.Width
    MH = MR.Height
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    Selection.ShapeRange.Fill.UserPicture _
       ActiveWorkbook.Path & "\" & MR.Value & ".jpg"     '当前文件所在目录下以当前单元内容为名称的.jpg图片
   End If
Next
End Sub

活在理想的世界

位置跟LEFT和TOP有关。

lalu7libin

活在理想的世界 发表于 2017-12-26 17:53
位置跟LEFT和TOP有关。

时好时不好，不会是因为单元格设置的原因吧

ning84

1. Sub mustdel()
   
2.   Dim Shp As Shape
   
3.   Dim ShpRng As ShapeRange
   
4.        Set Shp = Shapes(1)
   
5.        Shp.Name = "Arr"
   
6.        Set ShpRng = Shapes.Range(1) '(Array("Arr1"))
   
7.        Set ShpRng = Shapes.Range(Array("Arr"))
   
8.        Debug.Print ShpRng.Name
   
9. End Sub

复制代码