Sub Galopin()
    Range("A1" ).AddComment
    Range("A1" ).Comment.Visible = True
    Range("A1" ).Comment.Text Text:="GALOPIN01 !"
    Selection.ShapeRange.ScaleWidth 0.59, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.23, msoFalse, msoScaleFromTopLeft
    Range("A1" ).Select
End Sub

ScaleHeight, méthode
Voir aussi S'applique à Exemple Spécificités  
Cette méthode met à l'échelle la hauteur de la forme selon un facteur spécifié. Pour les images et les objets OLE, vous pouvez indiquer si vous souhaitez mettre la forme à l'échelle par rapport à la taille d'origine ou en cours. Les formes qui ne sont ni des images ni des objets OLE sont toujours mises à l'échelle par rapport à leur hauteur en cours.
 
expression.ScaleHeight(Factor, RelativeToOriginalSize, Scale)
 
expression   Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.
 
Factor  Argument de type Single obligatoire. Indique le ratio entre la hauteur de la forme une fois que vous l'avez redimensionnée et la hauteur d'origine ou en cours. Par exemple, pour obtenir un rectangle plus large de 50 pour cent, affectez la valeur 1.5 à cet argument.
 
RelativeToOriginalSize  Argument de type MsoTriState obligatoire. Il a la valeur msoTrue pour mettre la forme à l'échelle par rapport à sa taille d'origine. Il a la valeur msoFalse pour la mettre à l'échelle par rapport à la taille en cours. Vous ne pouvez affecter la valeur msoTrue à cet argument que si la forme spécifiée est une image ou un objet OLE.
 
MsoTriState peut être l'une de ces constantes MsoTriState.  
msoCTrue  Ne s'applique pas à cette propriété.  
msoFalse  Met la forme à l'échelle par rapport à la taille en cours.  
msoTriStateMixed  Ne s'applique pas à cette propriété.  
msoTriStateToggle  Ne s'applique pas à cette propriété.  
msoTrue  Met la forme à l'échelle par rapport à sa taille d'origine.  
 
Scale  Argument de type MsoScaleFrom facultatif. Cet argument spécifie la partie de la forme qui garde sa position lorsque la forme est mise à l'échelle.
 
MsoScaleFrom peut être l'une de ces constantes MsoScaleFrom.  
msoScaleFromBottomRight  
msoScaleFromMiddle  
msomsoScaleFromTopLeft  par défaut  
 
Exemple
Cet exemple montre comment mettre à l'échelle toutes les images et les objets OLE dans myDocument à 175 pour cent de leur hauteur et de leur largeur d'origine et toutes les autres formes à 175 pour cent de leur hauteur et largeur en cours.
 
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
    Select Case s.Type
    Case msoEmbeddedOLEObject, _
            msoLinkedOLEObject, _
            msoOLEControlObject, _
            msoLinkedPicture, msoPicture
        s.ScaleHeight 1.75, msoTrue
        s.ScaleWidth 1.75, msoTrue
    Case Else
        s.ScaleHeight 1.75, msoFalse
        s.ScaleWidth 1.75, msoFalse
    End Select
Next