Excel 시트에서 현재보기 포트의 좌표를 가져 오는 방법은 무엇입니까?

Question

사용자가 현재보고있는 Excel 워크 시트의 가운데에 차트를 배치해야합니다. 분명히 시트 좌표계의 X 축에서 0이 시작되고 X가 오른쪽으로 이동할 때 X가 증가합니다. 사용자는 예를 들어 J에서 Z까지의 열을 볼 수 있으며 사용자가보고있는 시트의 좌표가 필요하므로 그 앞에 차트를 배치 할 수 있습니다.

시트의 좌표계를 기준으로 시트의 "보기 포트"좌표를 얻으려면 어떻게해야합니까? 다른 간단한 방법으로 차트를 만들 수 있습니까?

감사합니다.

Answer 1

당신은 내용 $A$271:$X$312 나는이 당신을 도와 희망 와 MSGBOX를 엽니 다 내 경우

Sub test() 
    MsgBox Application.ActiveWindow.ActivePane.VisibleRange.AddressLocal 
End Sub 

뭔가를 시도 할 수 있습니다.

EDIT :

좋아, XY 좌표로 알아 내려고 시도하고 다음에 도착 : 좌표 좌상 X/Y에서

Sub TestPixel() 
    With Range(ActiveWindow.ActivePane.VisibleRange.AddressLocal) 
     Debug.Print .Left, .Top 
     Debug.Print .Left + .Width, .Top + .Height 
    End With 
End Sub 

인쇄 및 우측 하단 X/Y 좌표

편집 NO2 :

단 몇 분을했고 내 testworkbook하여 작업을 완료했다. 여기에 마크로가 있습니다 :

Sub PositionDiagramm() 
    Dim x As Integer 
    Dim y As Integer 

    Dim height As Integer 
    Dim width As Integer 

    With Range(ActiveWindow.ActivePane.VisibleRange.AddressLocal) 
     x = .Left 
     y = .Top 
     width = .Width 
     height = .Height 
    End With 

    With ActiveSheet.Shapes("Diagramm 1") 
    .Top = y + ((height - .Height)/2) 
    .Left = x + ((width - .Width)/2) 
    End With 
End Sub