Bug macro déplacement graphique

Sang1 · 10 Juin 2009

Bonjour,

Ma macro de déplacement de graphique bug et je ne comprend pas pourquoi...
La choses bizar c'est que sa fonctionne quand j'ai un "copy" a la place du "cut", mais avec le copy je me retrouve avec 2 graphique sur la meme page donc sa ne va pas. J'ai besoin de votre aide !!! 😀

Public Sub a()

Workbooks("ex.xls").Sheets("Sheet1").Activate
ActiveSheet.ChartObjects("aaa").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Cut
Range("A1").Select
ActiveSheet.Paste

End Sub

Merci d avance pour votre aide

SANG1

Hellowa · 10 Juin 2009

Re : Bug macro déplacement graphique

Au pire, fait ça en deux fois, d'abbord tu copy, et après tu le delete!

Pierrot93 · 10 Juin 2009

Re : Bug macro déplacement graphique

Bonsoir Sang, hallowa

pour déplacer un graphique sur une feuille, essaye en utilisant les propriétés "top" et "left", comme dans l'exemple ci dessous :

Code:

Option Explicit
Sub test()
Dim c As ChartObject
    With Sheets("Feuil1")
        Set c = .ChartObjects(1)
        c.Top = .Range("A1").Top
        c.Left = .Range("A1").Left
    End With
End Sub

bonne soirée
@+

Bug macro déplacement graphique

Sang1

Guest

Hellowa

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Bug macro déplacement graphique

Sang1

Guest

Hellowa

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency