Question

在Excel 2013中，我希望将图像水平居中放置在屏幕的可见区域，无论鼠标或单元格光标的位置如何，无论可见的单元格范围如何。

到目前为止，我已经得到了这个：

ActiveSheet.Shapes("Picture 1").Top = 13 'Fixed position vertically
ActiveSheet.Shapes("Picture 1").Left = (ActiveWindow.VisibleRange.Width / 2) -_
    (ActiveSheet.Shapes("Picture 1").Width / 2) 'Centered horizontally
ActiveSheet.Shapes("Picture 1").Visible = True

第一行和最后一行有效。中间位没有。

垂直于我想要它的位置，水平地将图像看似随意定位;也许是基于细胞光标？

Answer 1

老帖子，但这里的东西对我来说特别好... 我有A1：T1列，我需要将图片放在中心位置。我根据用户选择动态隐藏其中一些单元格。此代码放在代码之后以隐藏这些列

ActiveSheet.Shapes("Image1").Left = ActiveSheet.Range("A1:T1").Left
ActiveSheet.Shapes("Image1").Width = ActiveSheet.Range("A1:T1").Width

在可见屏幕上居中图像

1 个答案: