Word, graphique, matlab

Version imprimable

29/04/2010, 17h00
tesca

Word, graphique, matlab

Bonjour,

avec matlab je traite des données puis fait des graphique et enregistre les graphique en .emf de manière automatique.

Ensuite je prend le tous que je colle manuellement dans word.

Ma question, est-il possible de coder dans matlab pour qu'il me prenne tous mes graphiques et qu'il les mette tous dans un fichier word? Ou est-ce juste un rêve et je vais devoir continuer a le faire manuellement?

merci.
29/04/2010, 17h43
Merel

bonjour,

une discussion similaire peut être trouvée ici

C'est un enregistrement dans un fichier excel. Tu devrais pouvoir je suppose arranger ca pour un document word.
29/04/2010, 17h51
Jean Dumoncel

Bonjour,

tu peux aussi regarder dans les contributions sur le matlab file exchange :
figure+word
02/05/2010, 18h08
tesca

merci, pour les réponses, je vais jeter un oeil a ça voir comment, je peux m'en sortir .
02/05/2010, 18h19
Jean Dumoncel

Si tu es sous windows, tu peux aussi t'inspirer de ce post :
http://www.developpez.net/forums/d22...d/#post1433015

Bonjour, voila je me suis fait un en piquant a droite a gauche ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 print(HANDLES.(f{i}),'-dmeta') %.................Copying to clipboard FILE = [doss '\' serie '.doc']; APP = actxserver('Word.Application'); APP.Visible = 1; if ~exist(FILE,'file') Doc=APP.Documents.Add; Doc.PageSetup.Orientation = 'wdOrientLandscape'; Doc.PageSetup.TopMargin = 4/0.07; Doc.PageSetup.BottomMargin = 4/0.07; Doc.PageSetup.LeftMargin = 4/0.07; Doc.PageSetup.RightMargin = 4/0.07; %Doc.SaveAs(FILE); else Doc=invoke(APP.Documents,'Open',FILE); %Open the file end invoke(APP.Selection, 'Paste'); %Ici un truc pour redimentioner %invoke(Doc,'SaveAs',FILE); %invoke(APP,'Quit'); %delete(APP);
Ca ne fait pas encore ce que je veux. Je ne connais rien en VBA. A la facon macgiver, j'ai trouvé comment mettre la page en paysage. Mais je ne sais pas trop comment fonctionne les unités. En vert j'ai mi 4/0.07 pour avoir 2cm de chaque coté. C'est pas terrible mais ceci marche.

Il reste un truc que je m'arrive pas a faire. J'ai besoin une fois mon image collé de la redimensionner en plus petit.

J'ai essayé Doc.Selection.Height = 240.95; et d'autre truc mais sa ne marche. Si une âme charitable pouvait me dire comment redimensionner l'image après l'avoir collé. Sachant que je ne veux pas la redimensionner avant dans matlab, parce que ce sont des images qui si elles sont retenues doivent être a nouveau agrandi. Et je ne doit pas perdre en qualité.

Merci pour votre aide.

05/05/2010, 12h24
tesca

En regardant word après l'opération, le curseur est toujours après le graphique. Peut être pour sélectionner le graphique que je vient de coller, il suffirai de reculer le curseur d'un cran... puis d'accéder au propriété de l'image pour la redimensionner...

Quelqu'un sait faire ça? Malheureusement je n'ai pas le temps de m'initier au VBA, donc si quelqu'un a ma réponse merci...

merci pour votre aide
05/05/2010, 15h03
tesca
Donc voila ce que j'ai trouvé:
Code:

1 2 last_graphe=get(Doc.InlineShapes,'Count');
Ceci me donne bien le nombre de graphe dans mon fichier word, mais impossible de trouver comment accéder a un graphe en particulier pour modifier sa taille...
Code:

1 2 3 fin=get(Doc.Range,'End'); Doc.Range(fin-2,fin-1).Select;
Ceci me permet de sélectionner le dernier graphe, mais même constat impossible de trouver comment modifier la tailler...

Help me :S
06/05/2010, 20h44
tesca

toujours pas trouvé...

Je peux lire un en VBA qu'il suffit de faire un truc du genre

Doc.InlineShapes(index du graphique).propriété

Mais bien que le count me donne bien le bon nombre de graph. La taille de inlinesshapes est de 1*1. Et meme lorsque je test sur l'index 1, il n'y a aucune propriété dedans...

Quelqu'un pourrai me dire comment accéder au priorité de mes graphe???

merci.

PS: j'ai testé en créant une macro et regardé le code, maois rien n'y fait je ne trouve pas les propriéte a partir de matlab.

Merci pour votre aide.

Au cas où quelqu'un suit encore mon souci,

voila ce que je viens de trouver, aprés avoir selectionner mon graphique, je fait

Code:

get(APP.Selection.ShapeRange)

Celq me répond

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Application: [1x1 Interface.Microsoft_Word_12.0_Object_Library._Application]
                       Creator: 1.2973e+009
                        Parent: [1x1 Interface.Microsoft_Word_12.0_Object_Library.Selection]
                         Count: 0
                   Adjustments: [1x29 char]
                 AutoShapeType: [1x29 char]
                       Callout: [1x29 char]
                          Fill: [1x29 char]
                    GroupItems: [1x56 char]
                        Height: [1x29 char]
                HorizontalFlip: [1x29 char]
                          Left: 1.3500
                          Line: [1x29 char]
               LockAspectRatio: [1x29 char]
                          Name: [1x29 char]
                         Nodes: [1x29 char]
                      Rotation: [1x29 char]
                 PictureFormat: [1x29 char]
                        Shadow: [1x29 char]
                    TextEffect: [1x29 char]
                     TextFrame: [1x56 char]
                        ThreeD: [1x29 char]
                           Top: 0
                          Type: [1x29 char]
                  VerticalFlip: [1x29 char]
                      Vertices: [1x29 char]
                       Visible: [1x29 char]
                         Width: [1x29 char]
                ZOrderPosition: [1x29 char]
                     Hyperlink: [1x56 char]
    RelativeHorizontalPosition: 'wdRelativeHorizontalPositionColumn'
      RelativeVerticalPosition: 'wdRelativeVerticalPositionParagraph'
                    LockAnchor: 0
                    WrapFormat: [1x1 Interface.Microsoft_Word_12.0_Object_Library.WrapFormat]
                        Anchor: [1x56 char]
               AlternativeText: [1x29 char]
                         Child: [1x29 char]
                   ParentGroup: [1x29 char]
                   CanvasItems: [1x56 char]
                            ID: [1x29 char]
                  LayoutInCell: -1
                  LeftRelative: -999999
                   TopRelative: -999999
                 WidthRelative: -999999
                HeightRelative: -999999
        RelativeHorizontalSize: 'wdRelativeHorizontalSizePage'
          RelativeVerticalSize: 'wdRelativeVerticalSizePage'
                      SoftEdge: [1x29 char]
                          Glow: [1x29 char]
                    Reflection: [1x29 char]

Il y a le heigt et le width que je cherche depuis un moment. Mais je n'arrive ni a les lire, ni a ecrire.

J'arrive a lire Left par exemple mais impossible de lire tous ce qui est en 1x29char... Quelqu'un a une idee?

merci de votre aide