Macro graph (debutant)

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 14.10.2010 by Amilien
'
Dim c As ChartObject

Dim x As Range, z As Range
Set x = Range("A:A").Find("not implemented", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
Set z = Range("A31", x.Offset(-1, 0))
z.Select
End If

With Sheets("Sheet1")
Set c = .ChartObjects.Add(.Range("G15").Left, .Range("G15").Top, 800, 400)
End With



With c.Chart
.ChartType = xlLineMarkers
.SeriesCollection.Add z.Value, , True
.SeriesCollection(1).XValues = Range("B31:B33")

With .Legend
.Position = xlBottom
With .Font
.Size = 8
.Bold = True
End With
End With
With .ChartTitle
.Text = "XY Graph"
With .Font
.Size = 8
.Bold = True
End With
End With
With .Axes(xlCategory).TickLabels
.Font.Size = 8

End With
.Axes(xlValue).TickLabels.Font.Size = 8


End With
End With
'
End Sub

Cliquez pour agrandir...