Excel VBA中的图形放置和大小调整

编程问答 2022-08-14

问题描述

我非常尴尬-我几天前发布了这个问题，另一位贡献者很友好地提供了一个似乎可行的解决方案……由于某种原因，问题又回来了。贡献者建议的代码，可以正常工作一两天，复制如下：

整个子例程：

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 (将#修改为@）

excelexcelgraphgraphgraphplacementsizingvba