0

我有一个问题:我正在使用 Interop 在 Powerpoint 中创建图表,并且效果很好。但我有一个问题:我需要获取数据序列数据标签的确切位置来绘制一些形状。但是如何获得该死的位置呢?DataLabel 有 left 和 top 值,但它们似乎是无效的,例如:如果我在那个位置上画了一些东西,它就会出现。是否有某种转变,我必须做的?

我的代码如下所示: Imports pptNS = Microsoft.Office.Interop.PowerPoint

for i = 1 to Targetchart.Seriescollection.count

    Dim DtL = DirectCast(TargetChart.SeriesCollection(i).datalabels, pptNS.DataLabels)
    For x = 1 To DtL.count
         Dim   DTS = DirectCast(DTL.Item(DTLItem), pptNS.DataLabel)
         Dim Left =dts.left 'seems to be wrong?
    next
 next

任何帮助都会很棒!

4

1 回答 1

0

我找到了一个解决方案: Topposition 将是: TopPos = DTS.Top + TargetChart.ChartArea.Top + TargetShape.Top + 1.5 Dim LeftPos = DTS.Left + TargetChart.ChartArea.Left + TargetShape.Left

1.5。为 Topposition 添加,因为有一点差距...

于 2012-11-23T07:32:18.967 回答