Error when deleting first Y axis (2D diagram with stacked Y axes)

[Anonym]

Hello,

I use a macro for deleting the first Y axis on 2D diagram embedded in a document.
The Y axes are stacked. Initially, the diagramm hat at least two Y axes.

Here’s the code :

Dim objDoc as Document
Dim objDiag as Diagram2D

Set objDoc=ActiveDatabase.ActiveObject
Set objDiag=objDoc.Pages(1).item(1).DocObject
objDiag.YAxes(1).Delete

This code works allways fine except for the first Y axis. The following error occurs :
Err.Number = -2147467259
Err.Description = Erreur non spécifiée
Err.Source = FlexPro
Err.HelpContext = 1000440
Err.HelpFile = C:\Programm Files\Fichiers communs\Microsoft Shared\VBA\VBA6\1033\VbLR6.chm

I tried another solution :

Dim objDoc as Document
Dim objDiag as Diagram2D

Set objDoc=ActiveDatabase.ActiveObject
Set objDiag=objDoc.Pages(1).item(1).DocObject
objDiag.YAxes(1).Line.Select
objDiag.Selection.Delete

With this alternative code, sometimes it works, sometimes the following error occurs :
Err.Number = -2147467259
Err.Description = Erreur non spécifiée
Err.Source = FlexPro
Err.HelpContext = 1000440
Err.HelpFile = C:\Programm Files\Fichiers communs\Microsoft Shared\VBA\VBA6\1033\VbLR6.chm

I use FlexPro 8.0.21.

Thanks for your help.

[Bernhard Kantz]

It’s not possible to delete the first Y-axis because a 2D- or a 3D-diagram needs at least one Y-axis and at least one X-axis.

support@weisang.com

[Anonym]

I always check the number of Y axes : I want to delete the first Y axis (Y-Axis 1) only if the diagram has more than one Y axis.

Using the “2D Diagram Properties” dialog box, It’s not possible to delete the first Y axis, even if there are more than one Y axis.

But when I select the first Y axis with the mouse, I can then delete it => That’s what I try to reproduce with my macro.

I’ll try another solution.

Thanks for your answer.

[Autor]

Beiträge