Redimensionnement de l'image

Résolu/Fermé

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018 - 8 mai 2018 à 16:20
nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018 - 8 mai 2018 à 18:16

Bonjour,
je veux lier une image insérée à une cellule et redimensionner l'image


Set pct = ActiveSheet.Pictures.Insert(image)
pct.ShapeRange.Left = Cells(derligne, 10).Left
pct.ShapeRange.Top = Cells(derligne, 10).Top
pct.ShapeRange.Width = Cells(derligne, 10).Width
pct.ShapeRange.Height = Cells(derligne, 10).Height

A voir également:

Redimensionnement de l'image
Image iso - Guide
Acronis true image - Télécharger - Sauvegarde
Image de profil - Guide
Google recherche par image - Guide
Faststone image viewer - Télécharger - Visionnage & Diaporama

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
8 mai 2018 à 16:42

Bonjour,

si c'est pour le même classeur que ce post:

https://forums.commentcamarche.net/forum/affich-35330033-chargement-d-une-image-dans-une-cellule-precise#7

J'avais fait cela, mais comme il n'y avait pas eu de suivi...

https://www.cjoint.com/c/HEioMAX5gRQ

Voilà

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
8 mai 2018 à 17:02

ah oui, je te remercie c'est que je veux, mais un petit soucis que je retrouve comme résultat, l'image s’insère deux fois, et normalement doit être insérer qu'une seule fois après la confirmation

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 8 mai 2018 à 17:21

C'est normal qu'elle s’insère 2 fois puisque tu as mis le code dans les 2 boutons!

CommandButton1 et CommandButton3

Moi, j'ai suivi ton code. Maintenant tu enlèves le code en trop dans le CommandButton1 ou dans le CommandButton3

Le mieux c'est de mettre ceci:

Private Sub CommandButton3_Click()
Image = Application.GetOpenFilename
If Image <> False Then
Me.Image1.Picture = LoadPicture(Image)
Me.Image1.Visible = True
Image1.PictureSizeMode = 1
CommandButton1.Enabled = True
End Sub

a toi de voir!

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
8 mai 2018 à 18:16

oui oui j'ai remarqué c bon mtn
merciiiii énooormémeent

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Comment enlever le rouge sur la photo svp ?

mon image prend une dominante bleue

Sur la plage...

Discussions similaires

Newsletters