Hubert BEDUER
XLDnaute Nouveau
Bonjour et joyeuses fêtes à toutes et tous,
Je me permets de vous laisser ce message car je recherche un moyen d'adapter une macro concernant l'insertion d'une photo dans une cellule avec son redimensionnement et sa transformation en image JPG sachant que cette photo-image se trouvera dans un tableau qui devra être trié par la suite donc cette image-photo devra suivre les informations de la ligne sur laquelle elle se trouvera, j'ai trouvé une macro Top datant de 2012 mais celle-ci ne permet pas le tri, je crois qu'elle est basée sur une précédente version d'Excel. Je la joint ci-dessous, pour précision elle avait été postée par Papou Net
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.Dialogs(xlDialogInsertPicture).Show
With Selection
.ShapeRange.LockAspectRatio = msoFalse
.Width = Target.Width
.Height = Target.Height
.Placement = 1
.PrintObject = True
End With
End Sub
Si une âme charitable pouvait m'aider
Merci et encore tous mes voeux
Je me permets de vous laisser ce message car je recherche un moyen d'adapter une macro concernant l'insertion d'une photo dans une cellule avec son redimensionnement et sa transformation en image JPG sachant que cette photo-image se trouvera dans un tableau qui devra être trié par la suite donc cette image-photo devra suivre les informations de la ligne sur laquelle elle se trouvera, j'ai trouvé une macro Top datant de 2012 mais celle-ci ne permet pas le tri, je crois qu'elle est basée sur une précédente version d'Excel. Je la joint ci-dessous, pour précision elle avait été postée par Papou Net
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.Dialogs(xlDialogInsertPicture).Show
With Selection
.ShapeRange.LockAspectRatio = msoFalse
.Width = Target.Width
.Height = Target.Height
.Placement = 1
.PrintObject = True
End With
End Sub
Si une âme charitable pouvait m'aider
Merci et encore tous mes voeux