Bonjour,
J'utilise la macro ci-dessous pour insérer une image dans une cellule.
Sub LinkToImage()
For Each cel In Selection
cel.Offset(0, 2).Select
cel.Offset(0, 2).RowHeight = 100
cel.Offset(0, 2).ColumnWidth = 14
Set Image = ActiveSheet.Pictures.Insert(cel.Value)
With Image
.ShapeRange.LockAspectRatio = msoFalse
.Height = Application.CentimetersToPoints(3)
.Width = Application.CentimetersToPoints(2)
.Width = cel.Offset(0, 2).Width
.Height = cel.Offset(0, 2).Height
.Left = cel.Offset(0, 2).Left
.Top = cel.Offset(0, 2).Top
End With
Next cel
End Sub
Mais je souhaiterais que cette image se redimensionne afin que ses bords ne touchent pas les bords de sa cellule (ceci afin qu'elle reste en sa position lors d'un tri)
Et là je reconnais mon impuissance.
D'où ma sollicitation auprès de vous.
Merci par avance de vous pencher sur mon problème.
J'utilise la macro ci-dessous pour insérer une image dans une cellule.
Sub LinkToImage()
For Each cel In Selection
cel.Offset(0, 2).Select
cel.Offset(0, 2).RowHeight = 100
cel.Offset(0, 2).ColumnWidth = 14
Set Image = ActiveSheet.Pictures.Insert(cel.Value)
With Image
.ShapeRange.LockAspectRatio = msoFalse
.Height = Application.CentimetersToPoints(3)
.Width = Application.CentimetersToPoints(2)
.Width = cel.Offset(0, 2).Width
.Height = cel.Offset(0, 2).Height
.Left = cel.Offset(0, 2).Left
.Top = cel.Offset(0, 2).Top
End With
Next cel
End Sub
Mais je souhaiterais que cette image se redimensionne afin que ses bords ne touchent pas les bords de sa cellule (ceci afin qu'elle reste en sa position lors d'un tri)
Et là je reconnais mon impuissance.
D'où ma sollicitation auprès de vous.
Merci par avance de vous pencher sur mon problème.