Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA et position et format image

VBA et position et format image

4 réponses
Avatar
Christian.Bernard
Bonjour à tous

Je voudrais dans une macro, positionner le coin haut et gauche d'une image,
aligné sur le coin haut de la première cellule en haut et a gauche.

Ensuite je voudrais appliquer une largeur et une hauteur en cm a celle ci.

Merci d'avance pour votre aide

Christian
Signaler un problème avec ce contenu

4 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
michdenis
Bonjour Christian,

With Worksheets("Feuil1")
.Shapes("NomImage").TopLeftCell = .Range("A1").Top
.Shapes("NomImage").Left = .Range("A1").Left
End With


Salutations!


"Christian.Bernard" a écrit dans le message de news: uOk$
Bonjour à tous

Je voudrais dans une macro, positionner le coin haut et gauche d'une image,
aligné sur le coin haut de la première cellule en haut et a gauche.

Ensuite je voudrais appliquer une largeur et une hauteur en cm a celle ci.

Merci d'avance pour votre aide

Christian
Avatar
Christian.Bernard
Merci Michdenis

Ta réponse permet de la positionner.

Mais pour la redimensionner ?

Christian


"michdenis" a écrit dans le message de news:

Bonjour Christian,

With Worksheets("Feuil1")
.Shapes("NomImage").TopLeftCell = .Range("A1").Top
.Shapes("NomImage").Left = .Range("A1").Left
End With


Salutations!


"Christian.Bernard" a écrit dans le message
de news: uOk$
Bonjour à tous

Je voudrais dans une macro, positionner le coin haut et gauche d'une
image,
aligné sur le coin haut de la première cellule en haut et a gauche.

Ensuite je voudrais appliquer une largeur et une hauteur en cm a celle ci.

Merci d'avance pour votre aide

Christian




Avatar
michdenis
'-----------------
Sub test()
dim Sh As worksheets
Set sh = Worksheets("Feuil1")

With sh
With .Shapes("Image 2")
.Top = sh.Range("A1").Top
.Left = sh.Range("A1").Left
' 2 -> c'est pour 2 cm
.Height = Application.CentimetersToPoints(2)
.Width = Application.CentimetersToPoints(2)
End With
End With
Set Sh = Nothing
End Sub
'-----------------


Salutations!



"Christian.Bernard" a écrit dans le message de news:
Merci Michdenis

Ta réponse permet de la positionner.

Mais pour la redimensionner ?

Christian


"michdenis" a écrit dans le message de news:

Bonjour Christian,

With Worksheets("Feuil1")
.Shapes("NomImage").TopLeftCell = .Range("A1").Top
.Shapes("NomImage").Left = .Range("A1").Left
End With


Salutations!


"Christian.Bernard" a écrit dans le message
de news: uOk$
Bonjour à tous

Je voudrais dans une macro, positionner le coin haut et gauche d'une
image,
aligné sur le coin haut de la première cellule en haut et a gauche.

Ensuite je voudrais appliquer une largeur et une hauteur en cm a celle ci.

Merci d'avance pour votre aide

Christian




Avatar
Christian.Bernard
Impeccable

Ça marche du tonnerre

Merci encore

Christian

"michdenis" a écrit dans le message de news:

'-----------------
Sub test()
dim Sh As worksheets
Set sh = Worksheets("Feuil1")

With sh
With .Shapes("Image 2")
.Top = sh.Range("A1").Top
.Left = sh.Range("A1").Left
' 2 -> c'est pour 2 cm
.Height = Application.CentimetersToPoints(2)
.Width = Application.CentimetersToPoints(2)
End With
End With
Set Sh = Nothing
End Sub
'-----------------


Salutations!



"Christian.Bernard" a écrit dans le message
de news:
Merci Michdenis

Ta réponse permet de la positionner.

Mais pour la redimensionner ?

Christian


"michdenis" a écrit dans le message de news:

Bonjour Christian,

With Worksheets("Feuil1")
.Shapes("NomImage").TopLeftCell = .Range("A1").Top
.Shapes("NomImage").Left = .Range("A1").Left
End With


Salutations!


"Christian.Bernard" a écrit dans le
message
de news: uOk$
Bonjour à tous

Je voudrais dans une macro, positionner le coin haut et gauche d'une
image,
aligné sur le coin haut de la première cellule en haut et a gauche.

Ensuite je voudrais appliquer une largeur et une hauteur en cm a celle
ci.

Merci d'avance pour votre aide

Christian