Je copie une plage dans une image, que je colle ensuite sur une
feuille avec la fonction CopyImage.
Par contre, j'aimerai pouvoir renomer l'image nouvellement cr=E9=E9e dans
ma feuille et modifier ses propri=E9t=E9s.
La plage d'origine et la feuille de destination ne sont pas sur la
feuille active.
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
MichDenis
Forme une image avec la plage A2:H31 de la feuil1, la copie vers la feuil2 , range("A1") en lui donnant le nom "Bozo"
'--------------------------------- Sub CopiePlageDeCelluleEtExporterImage()
Dim F As String F = ActiveSheet.Name Application.ScreenUpdating = False
With Sheets("feuil1") .Range("A2:H31").CopyPicture End With
With Sheets("Feuil2") .Select .Range("A1").Select .Paste Selection.Name = "Bozo" End With
Sheets(F).Select
End Sub '---------------------------------
"FdeCourt" a écrit dans le message de groupe de discussion :
Bonjour,
Je copie une plage dans une image, que je colle ensuite sur une feuille avec la fonction CopyImage. Par contre, j'aimerai pouvoir renomer l'image nouvellement créée dans ma feuille et modifier ses propriétés.
La plage d'origine et la feuille de destination ne sont pas sur la feuille active.
J'ai essayé :
Set sh = destiSheet.Paste(destiPlage)
mais ça me renvoit une erreur de compilation.
Merci pour votre aide
Cordialement,
F.
Forme une image avec la plage A2:H31 de la feuil1,
la copie vers la feuil2 , range("A1") en lui donnant
le nom "Bozo"
'---------------------------------
Sub CopiePlageDeCelluleEtExporterImage()
Dim F As String
F = ActiveSheet.Name
Application.ScreenUpdating = False
With Sheets("feuil1")
.Range("A2:H31").CopyPicture
End With
With Sheets("Feuil2")
.Select
.Range("A1").Select
.Paste
Selection.Name = "Bozo"
End With
Sheets(F).Select
End Sub
'---------------------------------
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de groupe de discussion :
e77c3ec5-a758-4c63-8f45-bc94c25ae19d@e25g2000vbe.googlegroups.com...
Bonjour,
Je copie une plage dans une image, que je colle ensuite sur une
feuille avec la fonction CopyImage.
Par contre, j'aimerai pouvoir renomer l'image nouvellement créée dans
ma feuille et modifier ses propriétés.
La plage d'origine et la feuille de destination ne sont pas sur la
feuille active.
Forme une image avec la plage A2:H31 de la feuil1, la copie vers la feuil2 , range("A1") en lui donnant le nom "Bozo"
'--------------------------------- Sub CopiePlageDeCelluleEtExporterImage()
Dim F As String F = ActiveSheet.Name Application.ScreenUpdating = False
With Sheets("feuil1") .Range("A2:H31").CopyPicture End With
With Sheets("Feuil2") .Select .Range("A1").Select .Paste Selection.Name = "Bozo" End With
Sheets(F).Select
End Sub '---------------------------------
"FdeCourt" a écrit dans le message de groupe de discussion :
Bonjour,
Je copie une plage dans une image, que je colle ensuite sur une feuille avec la fonction CopyImage. Par contre, j'aimerai pouvoir renomer l'image nouvellement créée dans ma feuille et modifier ses propriétés.
La plage d'origine et la feuille de destination ne sont pas sur la feuille active.
J'ai essayé :
Set sh = destiSheet.Paste(destiPlage)
mais ça me renvoit une erreur de compilation.
Merci pour votre aide
Cordialement,
F.
Fdecourt
Hello MichDenis
J'ai trouvé une autre solution ou j'utilise destiSheet.Shapes (destiSheet.Shapes.Count), en supposant que ce que je viens de copier a l'index le plus élevé.
Je ne souhaite vraiment pas afficher la feuille.
Cordialement,
F.
Hello MichDenis
J'ai trouvé une autre solution ou j'utilise destiSheet.Shapes
(destiSheet.Shapes.Count), en supposant que ce que je viens de copier
a l'index le plus élevé.
J'ai trouvé une autre solution ou j'utilise destiSheet.Shapes (destiSheet.Shapes.Count), en supposant que ce que je viens de copier a l'index le plus élevé.
Je ne souhaite vraiment pas afficher la feuille.
Cordialement,
F.
MichDenis
La procédure soumise ne permettait pas à l'usager de percevoir la feuille de destination durant l'opération.
J'espère que tu as testé ta procédure avec des feuilles possédant plusieurs objets. ;-)
"Fdecourt" a écrit dans le message de groupe de discussion :
Hello MichDenis
J'ai trouvé une autre solution ou j'utilise destiSheet.Shapes (destiSheet.Shapes.Count), en supposant que ce que je viens de copier a l'index le plus élevé.
Je ne souhaite vraiment pas afficher la feuille.
Cordialement,
F.
La procédure soumise ne permettait pas à l'usager de percevoir
la feuille de destination durant l'opération.
J'espère que tu as testé ta procédure avec des feuilles possédant
plusieurs objets. ;-)
"Fdecourt" <fdecourt@gmail.com> a écrit dans le message de groupe de discussion :
2c8da8a6-9988-40d8-98fe-c07737f765d9@37g2000yqp.googlegroups.com...
Hello MichDenis
J'ai trouvé une autre solution ou j'utilise destiSheet.Shapes
(destiSheet.Shapes.Count), en supposant que ce que je viens de copier
a l'index le plus élevé.
La procédure soumise ne permettait pas à l'usager de percevoir la feuille de destination durant l'opération.
J'espère que tu as testé ta procédure avec des feuilles possédant plusieurs objets. ;-)
"Fdecourt" a écrit dans le message de groupe de discussion :
Hello MichDenis
J'ai trouvé une autre solution ou j'utilise destiSheet.Shapes (destiSheet.Shapes.Count), en supposant que ce que je viens de copier a l'index le plus élevé.