XL 2013 GRAPHE COPIE/COLLE

vinciHorus · 29 Juillet 2020

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 · 29 Juillet 2020

vinciHorus à dit:
avant next C.Select !!! qui est C

MERCI

Bonjour,

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

VB:

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

danielco · 29 Juillet 2020

Bonjour,

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

VB:

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 · 29 Juillet 2020

Ou :

Code:

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 · 29 Juillet 2020

danielco à dit:

Ou :

Code:

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 · 29 Juillet 2020

vinciHorus à dit:
avant next C.Select !!! qui est C

MERCI

Bonjour,

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

VB:

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

XL 2013 GRAPHE COPIE/COLLE

vinciHorus

XLDnaute Junior

danielco

danielco

XLDnaute Accro

danielco

XLDnaute Accro

vinciHorus

XLDnaute Junior

danielco

XLDnaute Accro

Discussions similaires