[VBA][Excel][Word] Redimensionner Tableau

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA][Excel][Word] Redimensionner Tableau

fatloui

I'll be back

Bonjour,

Je fais une macro excel qui copie des données dans un doc word mais j'ai quelques petits soucis.

donc j'ouvre mon doc word et je copie dedans un tableau excel

Code :

Set appWord = CreateObject("Word.Application" )
'Ouverture du document word
appWord.Documents.Open ("mon_doc.doc" )
With appWord.Selection
.TypeText Text:="FAITS MARQUANTS"
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Size = 18
With .Font
.Name = "time new roman"
.Size = 10
.Bold = True
End With
'Copier le tableau Excel dans le presse papier
ThisWorkbook.Sheets("feuille" ).Range("O10:AI27" ).Select
Selection.Copy
' Coller le tableau dans Word
.PasteSpecial Link:=True, _
DataType:=wdPasteOLEObject, _
Placement:=wdInLine, DisplayAsIcon:=False
End With
'Enregistrer et quitter Word
appWord.ActiveDocument.Save
appWord.ActiveDocument.Close
'Réinitialiser l'objet
Set appWord = Nothing

ca marche nikel mais le graphique est enorme et je sais pas comment le redimensionner

ca doit etre le membre Width qu'il faut modifier mais comment selectionner le tableau pour pouvoir faire un truc du genre

Selection.InlineShapes(1).Width = Selection.InlineShapes(1).Width/2

Mirci de votre aide ^^

Publicité

SuppotDeSaTante

Aka dje69r

Bonjour

Regardes peut etre de ce coté.

Code :

For Each iShape In ActiveDocument.InlineShapes
iShape.ConvertToShape
Next iShape
For Each MonShape In ActiveDocument.Shapes
MonShapeNom = MonShape.Name
Next MonShape
ActiveDocument.Shapes(MonShapeNom).Width = ActiveDocument.Shapes(MonShapeNom).Width / 2

En fait c'est assez chiant de faire comme tu le fais, car on ne defini pas l'objet final.

Il vaut mieux passer directement par un truc du genre :

Code :

appword.Documents.Open Filename:="C:\toto.doc"
appword.Selection.InlineShapes.AddOLEObject("C:\TonClasseur.xls" ).OLEFormat.Object.Sheets("feuille" ).Range("O10:AI27" ).Paste

---------------
Soyez malin, louez entre voisins !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA][Excel][Word] Redimensionner Tableau

Sujets relatifs
Msgbox avec une valeur en entrée Access VBA	Comment récupérer des données mysql dans un tableau horizontal?
[ VBA EXCEL > CALC ]	[VBA Excel] Importer ldif dans excel
[VBA-Outlook] Changer de compte en fonctions de critères	Caractère spéciaux dans tableau Word
[VBA] Problème redimensionnement et positionnement de graphique
Plus de sujets relatifs à : [VBA][Excel][Word] Redimensionner Tableau

Page générée en 0.042 secondes