dimensions graphiques

[nicolas]

Bonjour.

J'ai juste une petite question à propos d'un graphique que je crée par VBA. Il s'appelle cht, et je voudrais lui imposer les dimensions que je veux (width, heigth).

Ca doit se trouver dans l'aide mais comme je suis en allemagne et que je ne parle pas allemand, je galère un peu.

Alors merci à vous si vous pouvez m'aider...

 

[michel]

bonjour Nicolas

pour déplacer un graphique nommé "cht" tu peux essayer :

With ActiveSheet.ChartObjects("cht")
.Top = Range("B2").Top 'position verticale graphique
.Left = Range("B2").Left 'position horizontale graphique
.Width = Range("B2:H2").Width ' largeur graphique
.Height = Range("B2:B20").Height 'hauteur graphique
End With


bonne soiree
MichelXld

 

[nicolas]

Merci pour ta réponse, mais en fait je ne construis pas le graph dans un worksheet, mais dans une page Diagramm, et ensuite je l'exporte pour l'afficher dans l'image "Ima" de ma userform1. Le problème est que quand il s'affiche dans la page diagramm, il prend les dimensions maximales de cette page, et quand je l'affiche dans mon image, il se fait une réduction du graphique qui le rend illisible... Je voudria donc imposer des dimensions correctes à mon graph dès que je l'affiche dans le diagramme...

Le code est le suivant:

cht.SetSourceData Source:=Sheets("tabelle1").Range("A1:AY2"), _
PlotBy:=xlRows
cht.Export "test.gif"
With UserForm1.Ima
.Picture = LoadPicture("test.gif")
.AutoSize = False
End With

Kill "test.gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True

MERCI!!

 

[michel]

bonjour Nicolas

je ne suis pas sur de bien comprendre ton soucis
si c'est un probleme de lisibilité dans l'UserForm , je pense que c'est plutot la taille de ton contrôle Image dans l'USF qui n'est pas adapté par rapport a la plage de données que tu souhaites afficher , car l'image Gif n'est que le reflet de ton graphique et s'agence au format de ton UserForm


Dim Cht As Chart
Set Cht = Charts.Add
Cht.SetSourceData Source:=Sheets("feuil1").Range("A1:AY2"), PlotBy:=xlRows
Cht.Export "c:\test.gif"
With UserForm1.Ima
.Picture = LoadPicture("c:\test.gif")
.PictureSizeMode = 1 ' adaptation taille maxi dans contrôle image
End With

Kill "c:\test.gif"
Application.DisplayAlerts = False
Cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True


mais je n'ai sans doute pas tout saisi ….


bon apres mdi
MichelXld