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

奈何桥的輪茴

Sub 新插入图片居中()
      Dim i As Integer
      Dim filpath As String
      Dim j As Double
      Dim k As Integer
      Dim m As Double
      Dim rng As Range
     Dim s As String

         filpath = "F:\"           '修改上面一行的目录地址


      With ActiveSheet
      y = Selection.Column - 3
        filpathq = filpath & Cells(Selection.Row, Selection.Column - 1 - y).Value & ".jpg"   '"-" & Chr(65 + y) &

              If Dir(filpathq) <> "" Then

                  Set rng = .Cells(Selection.Row, Selection.Column)

                      .Pictures.Insert(filpathq).Select
                      With Selection
                      j = .Width / .Height
                      m = rng.Width / rng.Height
                      If j < m Then
                      .Height = rng.Height - 4
                      .Top = rng.Top + 2

                      .Left = rng.Left + (rng.Width - .Width) / 2

                      .Placement = 1
                      Else
                        .Width = rng.Width - 4
                       .Top = rng.Top + (rng.Height - .Height) / 2
                      .Left = rng.Left + 2
                      .Placement = 1
                    End If
                  End With
              Else
                  s = s & Chr(10) & .Cells(i + 1, 1).Text
              End If


         ' .Cells(1, 1).Select


      End With




  End Sub

奈何桥的輪茴

用的是10版本的，别人是07版本的，之前用07版的好像是没有问题，这跟版本有问题吗？我不想换版本{:soso_e101:}

奈何桥的輪茴

有没有人呀，帮帮忙，是不是需要改代码啊，可以帮忙改改不？

蓝桥玄霜

你的图片文件在F盘里面，那么别人电脑的图片文件在哪个盘里面?

奈何桥的輪茴

蓝桥玄霜 发表于 2015-7-21 14:30
你的图片文件在F盘里面，那么别人电脑的图片文件在哪个盘里面?

他们没有这个图片

蓝桥玄霜

没有图片当然不能连接。

huang1314wei

导入图片，路径必须要用的，没有路径当然不能连接

奈何桥的輪茴

蓝桥玄霜 发表于 2015-7-23 10:46
没有图片当然不能连接。

那要怎么弄，我要插入图片，发给别人，别人也要可以看到的

奈何桥的輪茴

huang1314wei 发表于 2015-7-23 11:00
导入图片，路径必须要用的，没有路径当然不能连接

现在等于是我自己电脑有这个图片，别人没有，我要图片导入，然后发给别人，别人也要必须看到的，需要怎么弄？我电脑是用10版本，他们是用07版本的

huang1314wei

奈何桥的輪茴 发表于 2015-7-24 08:52
现在等于是我自己电脑有这个图片，别人没有，我要图片导入，然后发给别人，别人也要必须看到的，需要怎么 ...

图片导入之后，保存一下，再发给别人啊