vba将图片移动到指定位置_excel vba 移动列位置

导航：

• 1、vba怎么把同一张图片分别放到A1:A10单元格中
• 2、如何利用vba把一个文件目录下的数字图片插入到Excel的某一个单元格里面？ 数字图片，比如图片
• 3、Excel VBA 如何移动图形组合到指定区域
• 4、execl 中VBA移动图片
• 5、word的VBA问题，如何让光标移动到指定的位置
• 6、请问在EXCEL中如何通过VBA 链接图片到指定的区域？

vba怎么把同一张图片分别放到A1:A10单元格中

可使用下面VBA代码循环将图片顺序放入各单元格里。比如这里放在A列，并设置大小与位置随单元格变化

For i = 1 To ActiveSheet.Shapes.Count

With ActiveSheet.Shapes(i)

.Left = Range("A" i).Left

.Top = Range("A" i).Top

.Width = Range("A" i).Width

.Height = Range("A" i).Height

.Placement = xlMoveAndSize

End With

Next i

如何利用vba把一个文件目录下的数字图片插入到Excel的某一个单元格里面？ 数字图片，比如图片

照片和文件的相对路径不能变，也就是说照片这个文件夹要和文件在一起。

点提取图片后，如果图片已经存在，则将图片移动到照片单元格。好像也没必要。。。

主要是最长那句代码。

Sub 提取照片()

Dim Rng As Range, S As String

On Error Resume Next

S = Trim(Range("E3")) '档案号单元格

Set Rng = Range("J4") '照片单元格

Path = ThisWorkbook.Path "\照片\" '图片路径

With ActiveSheet.Shapes(S) '移动到指定位置

.Left = Rng.Left + 10

.Top = Rng.Top + 5

End With

If Err Then '如果出错 说明没有添加图片，执行添加

ActiveSheet.Shapes.AddPicture(Path S ".JPG", 1, 1, Rng.Left + 10, Rng.Top + 5, 90, 120).Name = S

Err.Clear

End If

End Sub

Excel VBA 如何移动图形组合到指定区域

首先选中组合的图形

其次设置图形的左坐标和上坐标

图形.left= 表示组合图片距离左边的像素

图形.top= 表示组合图片距离上边的像素

execl 中VBA移动图片

activesheet.shaperange("picture 1").left=-1000

activesheet.shaperange("picture 1").top=-1000

这样就移到看不到的区域了

word的VBA问题，如何让光标移动到指定的位置

方法和详细的操作步骤如下：

1、第一步，打开包含4页的word文档，见下图，转到下面的步骤。

2、第二步，完成上述步骤后，如果要快速将光标移至第3页，则可以单击“替换”选项，见下图，转到下面的步骤。

3、第三步，完成上述步骤后，弹出一个对话框，单击“定位”选项卡，见下图，转到下面的步骤。

4、第四步，完成上述步骤后，弹出一个对话框，单击“定位目标”选项中的“页”选项，在右侧的页面编号栏中输入页号“

 3”，然后单击“定位”按钮，见下图，转到下面的步骤。

5、第五步，完成上述步骤后，光标将快速移至页面3的第一行，见下图，转到下面的步骤。

6、第六步，完成上述步骤后，要找到该行，请选择左侧的“行”，然后在右侧输入行号以进行定位，见下图，转到下面的步骤。

7、第七步，完成上述步骤后，就获得了想要的结果了，见下图。这样，就解决了这个问题了。

请问在EXCEL中如何通过VBA 链接图片到指定的区域？

Sub Insert() '插入图片到指定单元格！

Dim a As Object

Sheet1.Pictures.Delete

Set a = Sheet1.Pictures.Insert("C:\Documents and Settings\Administrator\桌面\dscn123.jpg")

a.Top = [a1].Top

a.Height = [a1].Height + [a2].Height + [a3].Height + [a4].Height + [a5].Height

a.Left = [a1].Left

a.Width = [a1].Width + [b1].Width + [c1].Width + [d1].Width + [e1].Width

End Sub

以上代码可以再sheet1中插入一张图片，图片大小刚好占满a1：e5的范围。

标签：vba将图片移动到指定位置