excel图片导入导出

时　间:2014-03-20 15:43:18
作　者:欢乐小爪   ID：20149  城市：杭州
摘　要:excel图片导入导出
正　文:

Sub excel里图片保存为文件()  '注意保存只能为jpg 不能为bmp格式
For i = 60 To 92
   myname = Sheets("主程序表").Range("A" & i)
    Sheets("主程序表").Shapes(myname).Select
    Selection.CopyPicture
     With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
            .Paste
           .Export Application.ThisWorkbook.Path & "\" + myname + ".jpg"
           .Parent.Delete
    End With
Next
End Sub
 
*****************
Sub 插入外部图片()
For i = 60 To 84
 Sheets("主程序表").Range("B" & i).Select
 ActiveSheet.Pictures.Insert(Application.ThisWorkbook.Path & "\" + Sheets("主程序表").Range("A" & i) + ".bmp").Select
Selection.Name = Sheets("主程序表").Range("A" & i)
Next
End Sub

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店