XL 2013 GRAPHE COPIE/COLLE

[vinciHorus]

Bonjour est ce possible d'avoir un code vba qui coupe une image et la colle sur la même place ?


For Each Legraph In ActiveSheet.ChartObjects
Legraph.Select
Application.CutCopyMode = False
ActiveChart.Parent.Cut
ActiveSheet.PasteSpecial Format:="Image (PNG)", Link:=False, DisplayAsIcon _
:=False
Next

le problème avec mon code c'est que les images sont entassées sur une même place

 

[danielco]

Bonjour,

Il y a sans doute plus simple... Essaie :

Sub test()
  Dim LeGraph As ChartObject, C As Range
  For Each LeGraph In ActiveSheet.ChartObjects
    Set C = LeGraph.TopLeftCell
    LeGraph.Cut
    ActiveSheet.PasteSpecial Format:="Image (PNG)", Link:=False, DisplayAsIcon _
    :=False
    Selection.Cut
    C.Select
    ActiveSheet.Paste
  Next
End Sub

Cordialement.

Daniel

 

[danielco]

Ou :

Sub test()
  Dim LeGraph As ChartObject, G As Double, T As Double
  For Each LeGraph In ActiveSheet.ChartObjects
    G = LeGraph.Left
    T = LeGraph.Top
    LeGraph.Cut
    ActiveSheet.PasteSpecial Format:="Image (PNG)", Link:=False, DisplayAsIcon _
    :=False
    Selection.Top = T
    Selection.Left = G
    C.Select
  Next
End Sub

Daniel

 

[vinciHorus]

Ou :

Sub test()
  Dim LeGraph As ChartObject, G As Double, T As Double
  For Each LeGraph In ActiveSheet.ChartObjects
    G = LeGraph.Left
    T = LeGraph.Top
    LeGraph.Cut
    ActiveSheet.PasteSpecial Format:="Image (PNG)", Link:=False, DisplayAsIcon _
    :=False
    Selection.Top = T
    Selection.Left = G
    C.Select
  Next
End Sub

Daniel

avant next C.Select !!! qui est C

MERCI

 

[danielco]

avant next C.Select !!! qui est C

MERCI

Bonjour,

C ? Oups, c'est une erreur (un reste de la solution précédente) :

Sub test()
  Dim LeGraph As ChartObject, G As Double, T As Double
  For Each LeGraph In ActiveSheet.ChartObjects
    G = LeGraph.Left
    T = LeGraph.Top
    LeGraph.Cut
    ActiveSheet.PasteSpecial Format:="Image (PNG)", Link:=False, DisplayAsIcon _
    :=False
    Selection.Top = T
    Selection.Left = G
  Next
End Sub

Au temps pour moi. Merci de l'avoir remarqué.

Daniel