Re : Insérer une photo grâce à un bouton de commande
Ben à priori, c'est certainement très facile pour des personnes qui maîtrisent Visual Basic, mais pour une novice, c'est un peu galère.
J'ai essayé toute la soirée des tas de codes différents, sans succès.
Je veux simplement que ma photo se place toute seule sur la cellule C39 sans redimensionner les colonnes et lignes et qu'importe la cellule sur laquelle on a cliqué avant de télécharger la photo.
Un tit coup de main me serait fort utile, parce que là ça me déprime.
Voici ma formule:
Private Sub Télécharger_Click()
Dim FdFp As FileDialog, MaCellule As Range, Ratio As Double, HauteurPhoto As Double
HauteurPhoto = 150
Set MaCellule = ActiveCell.Cells(1)
Set FdFp = Application.FileDialog(msoFileDialogFilePicker)
With FdFp
.AllowMultiSelect = False
.Filters.Add "Images", "*.bmp; *.gif; *.jpg; *.jpeg"
If .Show = -1 Then
ActiveSheet.Pictures.Insert(.SelectedItems(1)).Select
With Selection
Ratio = .ShapeRange.Width / .ShapeRange.Height
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = HauteurPhoto
.ShapeRange.Width = HauteurPhoto * Ratio
.Placement = xlMoveAndSize
End With
End If
End With
Set FdFp = Nothing
End Sub
J'ai viré les 2 lignes suivantes parce que ça modifiait la taille de mes colonnes et lignes, peut être à tort???
MaCellule.RowHeight = HauteurPhoto
MaCellule.ColumnWidth = (MaCellule.ColumnWidth / MaCellule.Columns.Width) * HauteurPhoto * Ratio
Voilà voilà, merci encore pour votre aide.
A+