Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel insérer photo largeur fixe

insérer photo largeur fixe

3 réponses
Avatar
Ciboulette
Bonjour,

J'ai créé un tableau dont la largeur des cellules doit rester fixe.
J'y insère des photos de dimensions diverses. Je souhaite que la photo soit
réduite automatiquement et proportionnellement
afin de tenir dans chaque cellule du tableau. Est-ce possible ? Et comment ?
Merci à qui aurait une idée.
Bon après midi

Ciboulette
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Sub essai()
For Each s In ActiveSheet.Shapes
a = s.TopLeftCell.Address
s.Width = Range(a).Width
s.Top = Range(a).Top
s.Left = Range(a).Left
Next s
End Sub

http://cjoint.com/?cbpUtFH7jv

JB

On 1 fév, 14:28, "Ciboulette" wrote:
Bonjour,

J'ai créé un tableau dont la largeur des cellules doit rester fixe.
J'y insère des photos de dimensions diverses. Je souhaite que la photo s oit
réduite automatiquement et proportionnellement
afin de tenir dans chaque cellule du tableau. Est-ce possible ? Et comment ?
Merci à qui aurait une idée.
Bon après midi

Ciboulette


Avatar
isabelle
bonjour Ciboulette,

Sub Macro1()
For Each sh In ActiveSheet.Shapes
If sh.Type = 13 Then
With sh
tp = .TopLeftCell.Address
.Top = Range(tp).Top
.Left = Range(tp).Left
.Height = Range(tp).Height
.Width = Range(tp).Width
End With
End If
Next
End Sub

isabelle

Bonjour,

J'ai créé un tableau dont la largeur des cellules doit rester fixe.
J'y insère des photos de dimensions diverses. Je souhaite que la photo soit
réduite automatiquement et proportionnellement
afin de tenir dans chaque cellule du tableau. Est-ce possible ? Et comment ?
Merci à qui aurait une idée.
Bon après midi

Ciboulette


















Avatar
isabelle
correction :

Sub Macro1()
For Each ob In ActiveSheet.Shapes
If ob.Type = 13 Then
With ob
tp = .TopLeftCell.Address
.Locked = False
.Placement = xlMoveAndSize
.LockAspectRatio = msoFalse
.Top = Range(tp).Top
.Left = Range(tp).Left
.Height = Range(tp).Height
.Width = Range(tp).Width
End With
End If
Next
End Sub

isabelle


Bonjour,

J'ai créé un tableau dont la largeur des cellules doit rester fixe.
J'y insère des photos de dimensions diverses. Je souhaite que la photo
soit réduite automatiquement et proportionnellement
afin de tenir dans chaque cellule du tableau. Est-ce possible ? Et
comment ?
Merci à qui aurait une idée.
Bon après midi

Ciboulette