How to display a chart on a certain position (e.g. centre of screen).

[stranno]

I want a shape or chart to be displayed on a certain position in my screen (window) but independent of a specified range.
The code below doesn't work if certain rows are hidden or filtered.

Sub Example() 
 CenterShape Me.Shapes("Rectangle 1") 
End Sub 

Public Sub CenterShape(o As Shape) 
 o.Left = ActiveWindow.VisibleRange(1).Left + (ActiveWindow.VisibleRange.Width / 2 - o.Width / 2) 
 o.Top = ActiveWindow.VisibleRange(1).Top + (ActiveWindow.VisibleRange.Height / 2 - o.Height / 2) 
End Sub

Does a chart has a window handle for instance?

Kind regards,
Stranno

[stranno]

This example clarifies what i mean.

[Paul_Hossler]

You'll have to store the original .Height and .Width, but maybe this

Public Sub CenterShape(o As Shape)

o.Left = ActiveWindow.VisibleRange.Left + (ActiveWindow.VisibleRange.Width / 2 - o.Width / 2)
o.Top = ActiveWindow.VisibleRange.Top + (ActiveWindow.VisibleRange.Height / 2 - o.Height / 2)

o.Width = 450
o.Height = 250

o.ZOrder (msoBringToFront)

End Sub

[stranno]

Ah, restore dimensions after repositioning the chart. I will check ik out.

[stranno]

I completely overlooked the z-order part of the code. I will try it again tomorrow.

[stranno]

Yes Paul. your suggestion, to bring the chart back to the front was right. Strange enough sometimes you have to click twice to center the chart but that's fine with me. thanks.

[Paul_Hossler]

Maybe run o.Zorder first then center it might work

Or just call the code twice in the Center sub

[stranno]

Yes, maybe. i'll try (and error) a few more possibilities. I think I'll find a solution.