Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Screen coordinates of Inside Top Left Corner of excel chart by vba
- Thread starter sd74
- Start date
SkipVought
Programmer
Hi,
You have two Area Objects to choose from the...
ChartArea Object
PlotArea Object
They both have Top and Left Properties, but the PlotArea Object also has InsideTop and InsideLeft Properties.
BTW, if none of those are what you need, there's the ChartObject Object, that has Top and Left Properties. The ChartObject Object is how a chart on a sheet is defined as opposed to a chart sheet which is a Chart Object and as such has no Top or Left Properties.
faq707-4811
Skip,
![[glasses]](/data/assets/smilies/glasses.gif "[glasses] [glasses]")
Just traded in my OLD subtlety...
for a NUance!![[tongue]](/data/assets/smilies/tongue.gif "[tongue] [tongue]")
"The most incomprehensible thing about the universe is that it is comprehensible" A. Einstein
You have two Area Objects to choose from the...
ChartArea Object
PlotArea Object
They both have Top and Left Properties, but the PlotArea Object also has InsideTop and InsideLeft Properties.
BTW, if none of those are what you need, there's the ChartObject Object, that has Top and Left Properties. The ChartObject Object is how a chart on a sheet is defined as opposed to a chart sheet which is a Chart Object and as such has no Top or Left Properties.
faq707-4811
Skip,
Just traded in my OLD subtlety...for a NUance!
"The most incomprehensible thing about the universe is that it is comprehensible" A. Einstein
SkipVought
Programmer
Skip,
Just traded in my OLD subtlety...for a NUance!
"The most incomprehensible thing about the universe is that it is comprehensible" A. Einstein
I had a quiet moment, so, if the OP really was asking for absolute screen coordinates rather than client coordinates:
Code:
[blue]Option Explicit
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Sub Main()
Dim myRect As RECT
myRect = GetShapeScreenRect(ActiveSheet.Shapes("Chart 2")) [COLOR=green]' we now have bounding rectangle of the Shape ("chart 2" in this case) in absolute screen coordinates[/color]
[COLOR=green]'Rectangle GetDC(0), myRect.Left, myRect.Top, myRect.Right, myRect.Bottom ' you will only see this rectangle briefly if at all if sheet has the focus since Excel will repaint the application window[/color]
End Sub
Private Function GetShapeScreenRect(ByVal myShape As Shape) As RECT
Dim myWind As Window
Set myWind = Application.Windows(1) [COLOR=green]' Use Application window for origin offset, and for Zoom factor (which affects client coordinates used by Excel)[/color]
With myShape
GetShapeScreenRect.Left = PointsToPixels(.Left * myWind.Zoom / 100) + myWind.PointsToScreenPixelsX(0)
GetShapeScreenRect.Top = PointsToPixels(.Top * myWind.Zoom / 100) + myWind.PointsToScreenPixelsY(0)
GetShapeScreenRect.Right = PointsToPixels(.Width * myWind.Zoom / 100) + GetShapeScreenRect.Left
GetShapeScreenRect.Bottom = PointsToPixels(.Height * myWind.Zoom / 100) + GetShapeScreenRect.Top
End With
End Function
Private Function PointsToPixels(Points As Single) As Long
PointsToPixels = Points * 96 / 72 [COLOR=green]' 96 = magic number. In reality we should query system for actual pixels per (logical) inch. And should cater for the fact that this value may differ between horizontal and vertical[/color]
End Function[/blue]- Status
Similar threads
- Question
- Locked
- Question
