檔案移動後照片無法顯示

g6135e

請教高手協助EXCEL 檔案移動到別人的電腦後照片無法顯示 1.請問要如何修改程式才能傳給別人後能顯示? 2.如果已經移動了要如何復原讓圖片可以直接抓別人電腦裡的資料夾?


下面是原本的程式碼
Sub 插入圖片()
'Application.Dialogs(xlDialogInsertPicture).Show
FuFileName = Application.GetOpenFilename
If FuFileName = "False" Then GoTo 100
ActiveSheet.Pictures.Insert(FuFileName).Select
On Error GoTo 100
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Height = 149
Selection.Width = 228
Selection.ShapeRange.IncrementLeft 1
Selection.ShapeRange.IncrementTop 1
100:
End Sub

苏子龙

ActiveSheet.Pictures.Insert(FuFileName).Select 改成 ActiveSheet.Shapes.AddPicture(FuFileName, True, True, .Left , .Top , .Width, .Height).Select大概这样，还可以另存为，把图片保存下

g6135e

苏子龙 发表于 2017-4-6 19:47
ActiveSheet.Pictures.Insert(FuFileName).Select 改成 ActiveSheet.Shapes.AddPicture(FuFileName, True,  ...

改了之後變成這樣

1