Help Excel/wordRésolu

Question

Je cherche desesperement a savoir comment inserer une feuille excel dans word ou powerpoint,
avec une bonne lisibilité meme si la feuille de calcul ou le tableau depasse de la feuille word/powerpoint

Je sais deja inserer une feuille avec la commande OLE, mais etant donné que la BDD inserer est de taille aleatoire :
je cherche une fonction me permettant de redimensionner cet objet ou tout autre maniere

//inserer un objet feuille de calcul excel dans word
Wordapp.Selection.InlineShapes.AddOLEObject("Excel.Sheet.8", BDDpath).Select

Merci de votre aide

VB23 · Accepted Answer

En attendant je me debrouille avec ceci :

dim sh as word.shape

Sh.Top = 50
Sh.Left = 15


Sh.ScaleWidth 0.9, msoTrue, msoScaleFromTopLeft
Sh.ScaleHeight 0.9, msoTrue, msoScaleFromTopLeft

jrivet · Answer

Salut,
Et ceci ne te convient pas?
Dim TaFeuille As InlineShape
   Set TaFeuille = Wordapp.Selection.InlineShapes.AddOLEObject("Excel.Sheet.8", BDDpath)
   TaFeuille.Width = 500, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

VB23 · Answer

bein non car la BDD comme je l'ai dis est de taille aleatoire 
genre s'il ya 15 colonnes excel , ou 50 meme un width de 500 fera que lobjet OLE sera illisible
et je souhaite juste qu'une partie soit lisble meme si le reste depasse de la feuille

Exemple : voici une fois importée la BDD

VB23 · Answer

dsl pour l'image mais bref ca fe un gros truc noir koi illisible

Help Excel/word

4 réponses

Votre réponse

Discussions similaires