Question

抱歉，另一个菜鸟问题。我的任务是在excel中编写文档，封面上有很多图像，并且将这些图像分组在一起。由于存在用户可以移动该组的风险。我要设置它，以便每次选择该工作表时它都会移回其原始位置。我已经看过网络，但似乎找不到一组图像的任何内容。

我已经尝试过了，它根本不起作用。 :(

Private Sub Worksheet_Activate()
Dim PicGroup As GroupShapes


With Range("A1")
    PicGroup.Name = "HeaderGrp"
    PicGroup.Visible = True
    PicGroup.Top = .Top
    PicGroup.Left = .Left
End With
End Sub

因此，我称为HeaderGrp的一组图像已将其放在VBA中的“激活工作表”上，并且我希望它始终移动或固定到单元格A1上。

如果有人知道该怎么做，我也希望它适合页面的宽度和长度。

我想要的快照：- 1）在工作表选择上，图像组移动到正确的位置。 2）图像组自动调整为页面宽度和高度。

先谢谢您

Answer 1

这对我有用。图片似乎被视为Shape的类型。

Private Sub Worksheet_Activate()

Dim p As Shape

With activesheet
    Set p = .Shapes("Pics") 'name
    p.Top = .Range("a1").Top
    p.Left = .Range("a1").Left
End With

End Sub

Answer 2

这段代码应该可以对图像进行分组：

combobox

图片组设置为范围

2 个答案: