User (Legacy) Posted November 21, 2000 Report Share Posted November 21, 2000 Bernd, I have always used ValueToPixel to gain the interior coordinates. Not exactly what you are trying to acomplish. Dim dblX As Double Dim dblY As Double Dim nReturn As Variant Dim lngPixelX As Long Dim lngPixelY As Long With .LegendBoxObj .Visible = True .Moveable = False .BorderStyle = BBS_FLAT .Docked = TGFP_FIXED .SizeToFit 'locate legend dblX = Me.ChartFX1.NValues dblY = Me.ChartFX1.Axis(AXIS_Y).Max / 2 nReturn = Me.ChartFX1.ValueToPixel(dblX, dblY, lngPixelX, lngPixelY, AXIS_Y) .Top = lngPixelY - .Height / 2 - 8 .Left = lngPixelX - .Width - 8 End With Steve Bernd Hoffmann <Bernd.Hoffmann@insocam.de> wrote in message news:3A191D2E.51090933@insocam.de... > Hi there, > > I tried to use the CFX-code sample for centering the series legend box on the > value legend box: > > With cfx.LegendBoxObj > .Moveable = False > .BorderStyle = BBS_FLAT > .Docked = TGFP_FIXED > .SizeToFit > 'Center vertically > .Left = cfx.Width - .Width - 8 > .Top = cfx.Height / 2 - .Height / 2 > cfx.RightGap = .Width + 8 > End With > > The size of my chart control is 7695 x 7335 so that the left position of the > legend box should be at 7620 and the top position at 3644. > When using this code the legend box disappears (for the SerLegBoxObj it works > fine). > > When using own values for left and top I end up at about 435 for left and 35 > for top to 'center' the legend box. > > Is it possible that the internal coordinate system of the chart fx control is > wrong for the legend box? > > Any help will be greatly appreciated. > > Regards, > Bernd Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.