Jouxte
XLDnaute Occasionnel
Bonjour à toutes et tous,
J'utilise le code ci-dessous pour coller, redimensionner et centrer horizontalement l'image du presse papier dans la cellule active de ma feuille.
J'aurais souhaité :
pouvoir coller cette image, la redimensionner pour qu'elle ne dépasse pas soit en largeur soit en hauteur de la ou des cellules contiguës sélectionnées.
Par avance merci pour votre aide.
J'utilise le code ci-dessous pour coller, redimensionner et centrer horizontalement l'image du presse papier dans la cellule active de ma feuille.
VB:
Sub InsertionCellActiveImagePressePapier()
Dim Img As Object
If Application.ActiveSheet.Paste Then
Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
With Img.ShapeRange
.LockAspectRatio = msoTrue
.Top = ActiveCell.Top + 1
.Height = ActiveCell.Height - 1
.Left = ActiveCell.Left + ((ActiveCell.Width - Img.Width) / 2)
'.Width = ActiveCell.Width
End With
Else
MsgBox "Insertion d'image interrompue."
End If
End Sub
J'aurais souhaité :
pouvoir coller cette image, la redimensionner pour qu'elle ne dépasse pas soit en largeur soit en hauteur de la ou des cellules contiguës sélectionnées.
Par avance merci pour votre aide.