Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

comment copier une image en adaptant sa dimension à la taille de la cellule?

J

jf27

XLDnaute Occasionnel
Bjr le forum,

je copie via vba une image dans une cellule.
Je souhaite faire un resize de cette image à la taille de la cellule.

Comment coder ça ?
Pour l'instant c fait comme ça, mais donc pas de resize !
Merci de votre aide
@+
JF
Code: 
'copy image in the active sheet
    ActiveSheet.Paste
     Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Width = 200
    Selection.ShapeRange.Height = 150
    Selection.ShapeRange.Rotation = 0#
    End If
 
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Re : comment copier une image en adaptant sa dimension à la taille de la cellule?

Bonjour,

A tester, pourquoi pas :

Code: 
Selection.ShapeRange.Width = Selection.Width
Selection.ShapeRange.Height = Selection.Height

A+
 
Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel
Re : comment copier une image en adaptant sa dimension à la taille de la cellule?

Bonjour à toutes et tous,

A essayer :

Selection.ShapeRange.ScaleWidth 0.44, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.44, msoFalse, msoScaleFromTopLeft

Bon courage
 
Vote positif 0 Vote négatif
J

jf27

XLDnaute Occasionnel
Re : comment copier une image en adaptant sa dimension à la taille de la cellule?

bien tenté, mais la sélection reste l'imge, qui dans ton cas est copiée dans sa taille originale...
@+
 
Vote positif 0 Vote négatif
J

jf27

XLDnaute Occasionnel
Re : comment copier une image en adaptant sa dimension à la taille de la cellule?

un truc qui aurais pu marcher ...

selection.shaperang.width=activecell.width

sauf que la cellule ou je copie est une fusion de plusieurs cellule donc la taille correspond ici à la taille de la 1ère cellule de la fusion
 
Vote positif 0 Vote négatif
J

jf27

XLDnaute Occasionnel
Re : comment copier une image en adaptant sa dimension à la taille de la cellule?

ok Pierrot,

je ne savais plus trop si cela restait la meme question, vu que cela migré vers du fusionné

@+
jf27
 
Vote positif 0 Vote négatif
M

Michel_ja

XLDnaute Occasionnel
Re : comment copier une image en adaptant sa dimension à la taille de la cellule?

Bonjour à tous, j'ai moi même écrit cette petite macro et l'objectif premier qui était de positionner les images juste au dessus des cellules qui portaient leur nom fonctionnne ! Par contre, PROBLEME, le code qui est censé redimensionner les photos à la taille de la cellule ne fonctionne pas !!! Est-ce que vous auriez le code correct ?
Merci d'avance !



Sub GestionImages()

For Each s In Sheets("feuil1").Shapes
On Error Resume Next
nom = s.Name
Set c = [E:Z].Find(What:=nom, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("feuil1").Shapes(nom).Top = c.Top
Sheets("feuil1").Shapes(nom).Left = c.Left
Sheets("feuil1").Shapes(nom).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.widht = ActiveCell.Width
Selection.ShapeRange.Height = ActiveCell.Height
End If


Next
End Sub
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : comment copier une image en adaptant sa dimension à la taille de la cellule?

Bonjour,

rempla peut être :

Code: 
Selection.ShapeRange.[B][COLOR="Red"]widht[/COLOR][/B] = ActiveCell.Width

par :

Code: 
Selection.ShapeRange.[COLOR="red"][B]Width[/B][/COLOR]= ActiveCell.Width

bonne journée
@+
 
Vote positif 0 Vote négatif
M

Michel_ja

XLDnaute Occasionnel
Re : comment copier une image en adaptant sa dimension à la taille de la cellule?

Oh Putain !!! une faute d'orthographe en anglais et la macro ne fonctionne plus !!! non seulement il faut apprendre le VB mais en plus il faut être bilingue anglais !!! je plaisante. Merci Pierrot !
 
Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc
Re : comment copier une image en adaptant sa dimension à la taille de la cellule?

Bonjour à tous,

Merci de crypter le deuxième mot de ton message à l'avenir, du genre

Oh P...

après tout, ce forum est censé être tout public, donc on va essayer de surveiller un peu notre langage...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
322
Nel'
N
F
  • Question
Microsoft 365 UserForm maximiser la taille du formulaire par rapport à la taille de l'écran
2
Réponses
22
Affichages
2 K
TooFatBoy
R
  • Question
XL 2016 Mettre la feuille proportionnellement à la taille de l'écran
Réponses
1
Affichages
480
ReneDav14000
R
C
  • Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
730
fanch55
J
  • Question
XL 2019 Comment détecter si le texte entré dans une cellule est un doublon (déjà utilisé dans la même colonne sur les lignes supérieures) ?
Réponses
5
Affichages
653
fanch55
  • Question
Microsoft 365 Copier la valeur de cellules non contigües de plusieurs feuilles vers une feuille récapitulative.
Réponses
14
Affichages
992
Droopyougo
D
  • Question
XL 2010 VBA agrandir/ reduire Image : Agrandissement au centre de la feuille Excel ou à partir de la cellule A1
Réponses
6
Affichages
2 K
fanch55
S
  • Question
XL 2010 Redimensionner une image avec méthode Range(" ").CopyPicture
2
Réponses
26
Affichages
5 K
Staple1600
B
  • Résolu(e)
XL 2016 Copier-coller une cellule, en rajoutant un terme dans la nouvelle cellule
Réponses
2
Affichages
1 K
BPM
B
S
  • Résolu(e)
Autres VBA pour copier une cellule à gauche de la cellule sélectionnée
Réponses
1
Affichages
2 K
sg394
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…