作者：绿色风
分类：
时间：2022-08-17
浏览：139
楼主
biaotiger1 |
Q：如何使图表位置固定显示在当前窗口的右下角？
A：右键单击sheet1工作表标签，弹出快捷菜单→“查看代码”，在代码窗口中输入代码如下：- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- '如果在工作表中选择不同的单元格时运行本子程序
- '定义二个变量
- With ActiveSheet.ChartObjects(1) '.Select
- .Left = Columns(ActiveWindow.ScrollColumn + ActiveWindow.VisibleRange.Columns.Count).Left - .Width
- .Top = Rows(ActiveWindow.ScrollRow + ActiveWindow.VisibleRange.Rows.Count).Top - .Height
- End With
- End Sub
- '程序结束
返回到Excel窗口，无论图表在什么位置，单击鼠标后图表立刻出现在当前窗口的右下角。
详见附件。
 动态位置折线图.rar
|
2楼
0Mouse |
测试后发现，无论鼠标来回滚动多少次，ActiveWindow.ScrollRow均只返回最终实际滚动的行数，ActiveWindow.ScrollColumn也类似。假如VisibleRange的左上角单元格是A1，而第28行只有一部分出现在可视窗口内，下部处于工作表标签以下的不可视区域，ActiveWindow.VisibleRange.Rows.Count也是返回整数28，不会是27点几，所以其实图表的右部和下部都有可能被淹没一小段，不过这个影响不大，代码实际运行效果不错，可以借用同样的处理手法设置永远跟随活动单元格的提示框。 |
3楼
a20031079 |
谢谢分享 正在学习差不多效果的方法
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一