Redimensionner taille phot avec Macro
ptitgibus3000
Messages postés
177
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Dans le cadre de mon travail, je dois insérer des photos sur une feuille excel.
Ce que je souhaite faire, c'est que la photo rapatriée de mon dossier "images" soit adaptée à la cellule selectionnée.
Pour l'instant, la photo est bien rapatriée, mais est adapté à la cellule de base et non pas à l'ensemble des cellules fusionnées.
Voici la macro :
"Sub Macro3()
ChDrive "C"
ChDir ("C:\chemin d'accès")
nf = Application.GetOpenFilename("Image,*.*")
If Not nf = False Then
Set monimage = ActiveSheet.Pictures.Insert(nf)
End If
Set Emplacement = ActiveCell
Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
With objImg.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
End Sub"
Est ce possible ?
Merci d'avance
Dans le cadre de mon travail, je dois insérer des photos sur une feuille excel.
Ce que je souhaite faire, c'est que la photo rapatriée de mon dossier "images" soit adaptée à la cellule selectionnée.
Pour l'instant, la photo est bien rapatriée, mais est adapté à la cellule de base et non pas à l'ensemble des cellules fusionnées.
Voici la macro :
"Sub Macro3()
ChDrive "C"
ChDir ("C:\chemin d'accès")
nf = Application.GetOpenFilename("Image,*.*")
If Not nf = False Then
Set monimage = ActiveSheet.Pictures.Insert(nf)
End If
Set Emplacement = ActiveCell
Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
With objImg.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
End Sub"
Est ce possible ?
Merci d'avance
A voir également:
- Redimensionner taille phot avec Macro
- Comment réduire la taille d'un fichier - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Reduire taille image - Guide
- Afficher taille dossier windows - Guide
- Jitbit macro recorder - Télécharger - Confidentialité