Copier des images en sélections multiples

[Lone-wolf]

Bonjour à tous,

Excel ne permettant pas la copie d'images sur les sélections multiples,
je ne sais pas si il y a moyen d'inserer dans le code, la fonction: ignorer si vide
ou une autre fonction.

Sub copier_images()
Worksheets("Data").Range("B2:B10").CopyPicture xlScreen, xlBitmap
Worksheets("Images").Paste _
Destination:=Worksheets("Images").Range("B2:B10")
Sheets("Images").Activate
End Sub

En sachant que B3,5,7 et 9 sont vides.

 

[MJ13]

Re : Copier des images en sélections multiples

Bonjour Lone-Wolf

La, j'avoue ne pas trop comprendre ce que tu veux faire 😕.

Un petit fichier ne serait pas supreflu.

 

[Lone-wolf]

Re : Copier des images en sélections multiples

Bonjour MJ13,

voià, les images (DATA) sont dans les celulles paires(2-4-6), en faisant un copier-coller dans la feuille (IMAGES), celles-ci sont groupées.

Ce que je recherche, c'est d'avoir dans (IMAGES), les images dans les mêmes celulles, mais dissociées.

PJ: copierdesimages.zip

 

[Guest]

Re : Copier des images en sélections multiples

Bonjour le fil,

Worksheets("Data").Range("B2:B10").CopyPicture xlScreen, xlBitmap

ne copie pas les images contenues dans les cellules mais créer une image des cellules, quoiqu'elles contiennent.


A mettre dans un module de code:

Sub copier_images()
    Dim shp As Shape
    Sheets("images").Activate
    For Each shp In Worksheets("Data").Shapes
        If Union(shp.TopLeftCell, shp.Parent.Range("B2:B10")).Address = Range("B2:B10").Address Then
            shp.Copy
            ActiveSheet.Paste
            With Selection
                .TopLeftCell = ActiveSheet.Range(shp.TopLeftCell.Address)
                .Left = shp.Left
                .Top = shp.Top
            End With
        End If
    Next
End Sub

A+

 

[Lone-wolf]

Re : Copier des images en sélections multiples

J'ai une erreur sur cette ligne:

If Union(shp.TopLeftCell, shp.Parent.Range("B2:B10")).Address = Range("B2:B10").Address Then.

Elle s'affiche en jaune.

 

[Guest]

Re : Copier des images en sélections multiples

Bonjour,

Chez moi cela fonctionne parfaitement. As-tu changé quelque chose?

De plus lorsque tu communiques une erreur, donne en même temps le message et numéro de l'erreur.

A+
[edition] j'ai réactualisé la pièce jointe qui était vide.

 

[Lone-wolf]

Re : Copier des images en sélections multiples

Bonjour Hasco,

désolé, mais il n'y avait pas de message, juste la ligne en jaune.

Changements: non, je n'ais pas éffectué de changements.

A+

 

[Lone-wolf]

Re : Copier des images en sélections multiples

Voilà, cette fois avec le fichier téléchargé j'ai le message:

Erreur 1004 - L'élément portant ce nom est introuvable.

Toujours sur la même ligne.

A+