请参阅Chris Nielsen在此链接中的回答：link
我完全是VBA编码的新手。只是为我的工作搜索移动重叠数据标签的解决方案，这可以节省大量时间。
但是当运行第一个代码，即MovingLabels（）时，下一行会出现问题。
<div class="collapsed panel">
<p>Lorem ipsum dolor sit amet, <a href="#">consectetur adipiscing</a> elit. Cras consectetur augue ut ligula tincidunt, vitae suscipit est aliquam. Vivamus ut efficitur odio. Donec non velit sit amet odio aliquam tempus.</p>
<p>Vestibulum luctus eros eu ligula sodales rhoncus. <a href="#">Nulla vel porttitor lacus</a>. Praesent malesuada varius sem at ullamcorper. Interdum et <a href="#">malesuada fames ac ante</a> ipsum primis in faucibus. Fusce gravida pulvinar dapibus. Nam faucibus diam non nulla fermentum, in aliquam augue dictum. Maecenas sed lorem bibendum, tincidunt quam ut, vulputate quam.</p>
<p>Maecenas malesuada eros ipsum, vel pellentesque ante consequat vitae. <a href="#">Phasellus egestas</a> aliquet felis, id condimentum neque fermentum a. Nunc porta viverra libero sit amet viverra. Ut consectetur ac ex in egestas. Integer vitae nulla faucibus, pulvinar felis eu, placerat nibh.</p>
<p>Morbi semper vel odio et blandit. Proin blandit magna at euismod egestas. Suspendisse laoreet arcu tortor, vel efficitur nulla malesuada nec. Etiam porttitor lacus sit amet magna tempor, non interdum nisl iaculis. Etiam quis porta orci. Quisque sit amet lectus ac neque accumsan luctus. Donec luctus, ipsum id elementum rutrum, diam ipsum fringilla velit, quis posuere lacus tortor nec quam. Phasellus ultricies enim quis turpis varius, scelerisque ultricies nisi rutrum. Sed dapibus malesuada sapien a gravida. Curabitur porta malesuada felis, at tincidunt sapien finibus consequat. Etiam at viverra nisi, id dignissim est. Integer eu felis id sem finibus congue.</p>
</div>如果有人能提供帮助，真的很感激。提前谢谢。
答案 0 :(得分：0)
试试这样：
Set ch = activesheet.ChartObjects(1).Chart
它应该工作。它引用ActiveSheet中的第一个图表。如果您有N个图表，请删除所有图表而不是一个图表，它会引用它。