Dynamic Bar/Graph

[cheby]

Hi,

I've been trying to emulate the attached graph and data in Excel, lines moving according to their value.
https://www.dropbox.com/s/y4b2g882xm77evt/untitled.JPG
Any ideas?

Thanks,
Sebastian.

 

[andrewkard]

Hello, maybe something like that:

Sub test()
Worksheet1.Shapes(1).Top = Worksheet.Shapes(1).Top + 50
End Sub

You can try this code to know the names of your shapes:

Sub list()
    Dim sh As Worksheet, sha As Shape
    For Each sh In ThisWorkbook.Worksheets
        
        For Each sha In sh.Shapes
            n = n + 1: Debug.Print "   №" & n & " «" & sha.Name & "»"
            Debug.Print "      X=" & sha.Left & "; Y=" & sha.Top
            Debug.Print "      X=" & sha.Left + sha.Width & "; Y=" & sha.Top + sha.Height
            Debug.Print "      " & sha.Width & "; " & sha.Height
            Debug.Print "      " & sha.Type & "; " & sha.AutoShapeType
        Next sha
       
    Next sh
End Sub

Вывод �пи�ка фигур на ли�те Excel � их координатами | Макро�ы в Excel

 

[cheby]

Hi,
How do you get the lines to move accordingly?
I've attached a example of the file. Could you give an example please?
http://dl.dropbox.com/u/59751309/untitled.xls

Cheers,
Sebastian.

 

[jeffreybrown]

x-post

 

[cheby]

x-post to Dynamic Bar/Graph