With ActiveChart.SeriesCollection(2).Format.Line
.ForeColor.ObjectThemeColor = msoThemeColorText1
.Weight = 15
End With
With ActiveChart.SeriesCollection(2).Format.Line
.ForeColor.ObjectThemeColor = msoThemeColorText1
.Weight = 15
.DashStyle = msoLineSquareDot
End With
Sub aa()
Dim LF As LineFormat
Dim i&
Set LF = ActiveChart.SeriesCollection(2).Format.Line
With LF
.ForeColor.RGB = vbRed
.Weight = 15
'''--- Pour visualiser le pas à pas de DashStyle ---
'' On Error Resume Next
'' For i& = 1 To 12
'' .DashStyle = i&
''Stop
'' Next i&
'' Err.Clear
'' On Error GoTo 0
'''--------------------------------------------------
.DashStyle = msoLineSquareDot
'--- Les autres propriétés ---
.Transparency = 0.4
.Pattern = msoPatternDarkDownwardDiagonal
.BackColor.RGB = vbBlue
.Style = msoLineThickBetweenThin
''' etc
End With
End Sub
Bonjour Misange, Patrick
Il est vrai que faire des box plots avec Excel, c'est pas simple.
J'avais trouvé, il y a peu, cette macro sous forme de .xla(mais tu connaît surement ) .
Revue MODULAD Excel'Ense, statistique avec Excel
Excuse moi Michel, j'avais loupé ton message.
'//////// Modif pmo ////////
Dim i&
ActiveChart.SeriesCollection(2).Select
keybd_event VK_CONTROL, 0, 0, 0
keybd_event KEY_1, 0, 0, 0
keybd_event KEY_1, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
Exit Sub
For i& = 1 To 4
keybd_event VK_DOWN, 0, 0, 0
keybd_event VK_DOWN, 0, KEYEVENTF_KEYUP, 0
Next i&
Exit Sub
For i& = 1 To 4
keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
Next i&
Exit Sub
For i& = 1 To 2
keybd_event VK_DOWN, 0, 0, 0
keybd_event VK_DOWN, 0, KEYEVENTF_KEYUP, 0
Next i&
Exit Sub
keybd_event VK_RETURN, 0, 0, 0
keybd_event VK_RETURN, 0, KEYEVENTF_KEYUP, 0
Exit Sub
keybd_event VK_ESCAPE, 0, 0, 0
keybd_event VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0
'//////////////////////////