xls_add_pict_file

后加vba    Sub test()  Dim shp As Shape      For Each shp In ActiveSheet.Shapes          If shpType = msoPicture Then              shp.Placement = xlMoveAndSize          End If      Next  End Sub