Bonjour.
Je voudrais modifier l'echelle d'un graph sous access. Je voudrais modifier l'échelle sur les axes des X et des Y, sachant que j'ai trouvé le code pour modifier l'échelle sur l'axe des Y :
Option Compare Database
Option Explicit
Private Sub cmdChangeScale_Click()
'****************************************************
' Événement Click d'un bouton appelant la procédure UpdateMinMaxScale
'****************************************************
Dim sngMinScale As Single
Dim sngMaxScale As Single
sngMaxScale = Me!txtMaxScale
sngMinScale = Me!txtMinScale
UpdateMinMaxScale sngMinScale, sngMaxScale, "Graphique1"
End Sub
Sub UpdateMinMaxScale(ByVal MinScale As Single, ByVal MaxScale As Single, ByVal ChartName As String)
'****************************************************
' Procédure : UpdateMinMaxScale
' Paramètres :
' - MinScale : Valeur mini de l'échelle
' - MaxScale : Valeur maxi de l'échelle
' - ChartName : Nom du graphique
'****************************************************
Const SCALE_VALUES = 2
Const CHART_OBJECT = 113
Dim oCtl As Control
Dim oFrm As Form
Set oFrm = Form
For Each oCtl In oFrm.Controls
'Recherche des objets de type Chart
If oCtl.ControlType = CHART_OBJECT Then
'Identification de nom selon ChartName
If oCtl.ControlName = ChartName Then
With oCtl.Axes(SCALE_VALUES)
.MinimumScale = MinScale
.MaximumScale = MaxScale
End With
Exit For
End If
End If
Next oCtl
Set oFrm = Nothing
End Sub
Je voudrais faire de meme pour l'axe des X...Pourriez-vous m'aider? Désolé pour mon incompétence...je débute sous access...
En vous remerciant!
Partager