让Excel中的图片不随滚动条移动[Excel中插入浮动图片]

xiaowuger

同事妹妹给我提需求。说她有个保安巡检记录的excel，列数少，但行数很多而且一直在增加，她在右侧插入一个形象的地图（图片），想在浏览这些记录的时候始终能完全显示这个地图。
  这个要求看似很简单，却着实难住了我。
首先，将图片置成背景是不行的，它会随着表格滚动。
其次将图片放左侧或上部，靠窗口分割锁定来实现效果也不行。因为地图不小，要锁定了，记录的数据就不好翻页了。

实在没招，想到一个不太完整的办法。
创建一个按钮，在它的事件里加入VBA

Sub ActiveImageV()
'   让图片跟当前活跃单元格水平对齐。
    ActiveSheet.Shapes("Picture 1").Select
    Selection.Left = 400
    Selection.Top = ActiveCell.Top
    ActiveCell.Select
End Sub

只是每次翻页都要选一个合适的活跃单元格，然后点按钮。不方便呀，谁有好办法拿出来分享呀？

wudixin96

看看这样行不？？

tge123

不错的办法。顶2楼。
另外鄙视楼主，把帮助看得太廉价了。

zhangman7056

wudixin96 发表于 2014-5-20 15:51
看看这样行不？？

这个不错，能透露下制作方法么？？

wudixin96

zhangman7056 发表于 2015-3-23 23:04
这个不错，能透露下制作方法么？？

只是个定时器而已

zhangman7056

wudixin96 发表于 2015-3-24 10:30
只是个定时器而已

真心不会，求下方法呗，现在公司里需要做下这个，所以请教下大神。。。

wudixin96

zhangman7056 发表于 2015-3-24 19:36
真心不会，求下方法呗，现在公司里需要做下这个，所以请教下大神。。。

代码就在里面啊，只不过是每隔多少毫秒变动一下图片的位置而已

zhangman7056

wudixin96 发表于 2015-3-25 10:18
代码就在里面啊，只不过是每隔多少毫秒变动一下图片的位置而已

我已经按照你的代码弄进去了，不知道为什么不行，您能否录制个视频指导我下呢？我看看哪里做的有问题

wudixin96

zhangman7056 发表于 2015-3-25 16:33
我已经按照你的代码弄进去了，不知道为什么不行，您能否录制个视频指导我下呢？我看看哪里做的有问题

thisworkbook里Open事件里还有代码的

zhangman7056

wudixin96 发表于 2015-3-25 16:43
thisworkbook里Open事件里还有代码的

还是弄不好，能帮忙录制个视频么，感激不尽