用这代码在自己电脑插入图片，可在别人电脑就显示无法链接图片，求解

奈何桥的輪茴

huang1314wei 发表于 2015-7-24 09:05
图片导入之后，保存一下，再发给别人啊

当然有保存啦，他们显示无法链接图片

huang1314wei

奈何桥的輪茴 发表于 2015-7-24 09:19
当然有保存啦，他们显示无法链接图片

那说明你插入图片的方法不对，你可能插入的只是一个超链接或者外部数据源

ili

奈何桥的輪茴 发表于 2015-7-21 10:51
有没有人呀，帮帮忙，是不是需要改代码啊，可以帮忙改改不？

别用pictures 插入图片了。换下面这种方式插入图片可以随文档保存。

activesheet.shapes.addpicture 图片路径, true, true, left, top, width, height

奈何桥的輪茴

huang1314wei 发表于 2015-7-24 09:25
那说明你插入图片的方法不对，你可能插入的只是一个超链接或者外部数据源

那需要怎么弄？

奈何桥的輪茴

ili 发表于 2015-7-24 09:41
别用pictures 插入图片了。换下面这种方式插入图片可以随文档保存。

activesheet.shapes.addpicture  ...

是要改代码吗？我不会，这个是之前别人留下的，可以帮忙完整的该怎么弄？

ili

奈何桥的輪茴 发表于 2015-7-24 09:48
是要改代码吗？我不会，这个是之前别人留下的，可以帮忙完整的该怎么弄？

导入图片的 长 宽 以及 上边距和下边距  如何确定。

奈何桥的輪茴

ili 发表于 2015-7-24 09:52
导入图片的 长 宽 以及 上边距和下边距  如何确定。

那些的话自动表格的大小就可以

ili

奈何桥的輪茴 发表于 2015-7-24 10:00
那些的话自动表格的大小就可以

附件没有，大小位置随便。只能这样了，

1. Sub 新插入图片居中()
   
2.     Dim filpath As String
   
3.     filpath = "F:"           '修改上面一行的目录地址
   
4.     filpathq = filpath & Cells(Selection.Row, Selection.Column - 1 - y).Value & ".jpg"   '"-" & Chr(65 + y) &
   
5.     If Dir(filpathq) <> "" Then
   
6.     Set rng = .Cells(Selection.Row, Selection.Column)
   
7.     Sheet1.Shapes.AddPicture filpathq, True, True, rng.Left, rng.Top, -1, -1
   
8. End Sub

复制代码

奈何桥的輪茴

ili 发表于 2015-7-24 10:14
附件没有，大小位置随便。只能这样了，

我改了代码，不行，所以，帮忙弄下附件里面的，感激不尽啊

奈何桥的輪茴

奈何桥的輪茴 发表于 2015-7-24 11:42
我改了代码，不行，所以，帮忙弄下附件里面的，感激不尽啊

附件里帮忙弄下，要可以保存的