Icône de la ressource

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

patricktoulon

XLDnaute Barbatruc
patricktoulon a posté une nouvelle ressource :

centrer une image dans un range en toute circonstances quel que soit le ratio (range/image) - placer une image sur un range centre dans un range

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...

En savoir plus sur cette ressource...
 

patricktoulon

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

autre ecriture pour la méthode directe

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...

Lire la suite de cette mise à jour...
 

patricktoulon

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

autre methode de calul ration

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...

Lire la suite de cette mise à jour...
 

patricktoulon

XLDnaute Barbatruc
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

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) ;) :p

par conséquent on...

Ce lien n'existe plus
 

Discussions similaires