Copier des images sur plusieurs onglets
Bonsoir,
Je souhaite dans le fichier en pj, en double cliquant sur le Range("A5:P18"), insérer une image, qui sera copié à la même place(range) dans les onglets Feuil2 et Feuil3.
Idem pour le Range("P5:AD18").
Mais j'ai 2 problèmes:
- la distinction des images (que je nomme cible, cible2)
- les images copiés sur feuil2 et feuil3 ne sont que des rectangles blanc!?!?
A noter que j'utilise peut-être une mauvaise macro pour insérer une image....
En tout cas, merci par avance, et passez de bonnes fêtes!
Bonsoir
Je ne connais pas cette méthode pour insérer une image (j'apprends)
Remplaces
ActiveSheet.Range("A5:N18").CopyPicture xlScreen, xlBitmappar
ActiveSheet.Shapes("cible").CopyPicture xlScreen, xlBitmapMerci Banzai,
je pense que je vais devoir changer de process pour insérer une image, car lorsque j'insère la 2ème image, c'est la 1ère image qui est copié sur Feuil2 et Feuil3
Bonjour
Quand j'ai voulu simplifier pour n'avoir qu'une macro j'ai oublié de modifier cette ligne
[barrer]ActiveSheet.Shapes("cible").CopyPicture xlScreen, xlBitmap[/barrer]A remplacer par
ActiveSheet.Shapes(Nom).CopyPicture xlScreen, xlBitmapoui, super merci Banzai!
Juste une question comment faire pour que la taille des images soient identiques sure les Feuile2 & 3?
Bonjour
Je ne comprend pas ta question
Les dimensions des images sont identiques sur les 3 pages
c'est étrange chez moi, elles sont plus petites que le range, ci-joint la capture d'écran.
L'idée c'est qu'elle soit de la taille du range A5:N18
Bonjour
Normalement la copie se fait suivant les dimensions des cellules de la page 1
cette partie
ActiveSheet.Paste Destination:=Feuil2.Range(Emplacement)peut être remplacée par
ActiveSheet.Paste Destination:=Feuil2.Range(Emplacement).Cells(1,1)Et la dimension de l'image ne sera pas modifié
L'image est copiée à partir du coin supérieur gauche de la plage destination
Même si tu notes A1:Z100 comme plage de destination, l'image sera copiée, coin supérieur gauche en A1, mais ne couvrira pas l'ensemble des cellules de A1 à Z100
Je n'en sais pas plus
bonsoir,
marche pas non plus, mais ce qui est sympa, c'est lorsque l'on change par cells(01,10), il place l'image ailleurs, bon à savoir
sinon, j'ai la solution un peu barbare:, jk'ai ajouté cela pour placer les images dans Feuil2 & 3:
With Feuil2.Pictures.Insert(Fichier).ShapeRange
.Name = Nom
.LockAspectRatio = msoFalse
.Left = Range(Emplacement).Left
.Top = Range(Emplacement).Top
.Height = Range(Emplacement).Height
.Width = Range(Emplacement).Width
End With
With Feuil3.Pictures.Insert(Fichier).ShapeRange
.Name = Nom
.LockAspectRatio = msoFalse
.Left = Range(Emplacement).Left
.Top = Range(Emplacement).Top
.Height = Range(Emplacement).Height
.Width = Range(Emplacement).Width
End With
Merci pour tout et Bonnes Fêtes!