Discussion :

[patricktoulon]

Bonjour a tous
j'ai un petit soucis avec l'image issue d'une capture
tout d'abords je me suis mis a cet exercice par raport a une demande concernant la netteté (qualité de la capture

il y a diverses possibilite ( plage étant un range)
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
plage.copypicture xlscreen,xlbitmap
activesheet.paste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
plage.copypicture xlprinter,xlbitmap
activesheet.paste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
plage.copypicture xlscreen,slpicture 
activesheet.paste

etc....
et enfin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
plage.copy
activesheet.pictures.paste

bref il s'avère que le format xlbitmap soit moins bon que xlpicture

mais il y a un soucis avec xlpicture si les cellules n'ont pas de fond couleur dans la capture (picture xx) les cellules sont transparentes

avec le menu contextuel j'arrive bien a remettre un fond en blanc
menu
format de l'image/remplissage/remplissage uni
et voila mon fond est redevenu blanc


mais par macro impossible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Macro6()
Set plage = ActiveSheet.Range("B4:C5")
plage.CopyPicture xlScreen, xlPicture
ActiveSheet.Pictures.Paste
Set monimage = ActiveSheet.Shapes(ShapeCount)
  with monimage.pictureformat
'ici  fond en couleur blanc
 
end with
end sub

j'ai essayé fill.transparency=0
j'ai essayé .transparentbackground=false
etc....

cela doit être possible puisque je le fait a la main
des idées??

[patricktoulon]

re je ne comprends absolument rien

ca ne veut toujours pas modifier le background
aucun effet?????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro6()
Set plage = ActiveSheet.Range("a4:C7")
plage.CopyPicture xlScreen, xlPicture
 
    ActiveSheet.Pictures.Paste
 
    Set monimage = ActiveSheet.Shapes(ShapeCount)
    With monimage
    .PictureFormat.TransparentBackground = False
    .Fill.Transparency = 0#
    .Fill.ForeColor.RGB = RGB(255, 0, 0)
   .Fill.BackColor.RGB = RGB(255, 0, 0)
   End With
   end Sub

pourtant j'arrive bien a le faire a la main