如何解决Excel VBA中的图形放置和大小调整
我非常尴尬-我几天前发布了这个问题,另一位贡献者很友好地提供了一个似乎可行的解决方案……由于某种原因,问题又回来了。贡献者建议的代码,可以正常工作一两天,复制如下:
整个子例程:
Dim sWidth As Single,sHeight As Single
Sheets("individual sku menu").Activate
sWidth = Range("ca7:ce7").Width
sHeight = Range("ca7:ca19").Height
With ActiveSheet.Shapes("Selected Graph")
.Left = Range("ca7").Left
.Top = Range("ca7").Top
.Width = sWidth
.Height = sHeight
End With
该图的右上角在CA列第9行的中途结束。它比sWidth中的值宽得多,并且比sHeight高得多。
图形的名称似乎不是问题。当我使用.Left或.Top线修改位置时,图形通常总是在正确的单元格附近或多或少地移动,但永远不会移到正确的位置。同样,当我修改sWidth或sHeight时,大小也会相应地改变。但是,它永远不会放在正确的位置,也不是正确的尺寸。
我还知道,当不调用该子例程时,该图将最终在另一个位置结束。
我的一部分只是知道我为树木而思念森林,但是我正在把头发上剩下的东西扯掉。任何帮助将不胜感激。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。