centrer une image dans un range en toute circonstances quel que soit le ratio (range/image) 1.0

bonjour a tous
voici deux méthode avec exemple pour centrer une image sur un range

la méthode que j'appelle directe
en effet j'agit directement sur l'image en bloquant l'apect ratio

VB:

'*****************************************************************
'*centrer une image dans un range en gardant les proportions
'fonction en déplaçant et redimensionnant l'image directement
'auteur patricktoulon
'version 1.0
'date :17/06/2016...

Cliquez pour agrandir...

voici une autre écriture pour la methode directe

VB:

Sub place_l_image_dans(Rng As Range, Shp As Picture)
    Dim x&
    With Shp
        .ShapeRange.LockAspectRatio = msoTrue    ' met  l'aspect Ratio a true
        x = (Rng.Width / Rng.Height) < (.Width / .Height)'comparaison des ratios
        'en fonction de x et en redimensionnant le width ou le height l'autre se redimensionne automatiquement
        If x Then .Width = Rng.Width Else .Height = Rng.Height
        .Left = Rng.Left...

Cliquez pour agrandir...

une autre facon pour la methode direct sur image
la ligne de calcul est de @Dudu2

VB:

Private Sub CommandButton1_Click()
    'PlaceTheShapeInCenterRange [c4:d8], Shapes("toto"), 5    '5%
    PlaceTheShapeInCenterRange [c4], Shapes("toto"), 5    '5%
End Sub

Private Sub CommandButton2_Click()
    'PlaceTheShapeInCenterRange [c11:d24], Shapes("toto"), 5    '5%
    PlaceTheShapeInCenterRange [c11], Shapes("toto"), 5    '5%
End Sub

Sub...

Cliquez pour agrandir...

bonjour
ce fut long et laborieux
NEW !!
dans l'optique d'avoir une fonction gérant diverses monnaies et les deux échelles (2/3) décimales
et d'avoir la simple conversion sans monnaie
j'ai fusionné mes deux moteurs

NEW !!
a fin de ne plus avoir a réécrire le code pour une nouvelle monnaie ou une demande particulière , j'ai organisé tout cette partie dans un sélect case (façon ikea)

par conséquent on...

Cliquez pour agrandir...

patricktoulon à dit:

patricktoulon a mis à jour centrer une image dans un range en toute circonstances quel que soit le ratio (range/image) avec une nouvelle version :

Ce lien n'existe plus



Ce lien n'existe plus

Cliquez pour agrandir...