technicoss
XLDnaute Nouveau
Bonjour,
je suis en train d'essayer de récupérer des schémas effectué sur excel en fonction d'une série d'information
Je doit envoyer ces schémas dans un doc word et leur faire effectuer une rotation à +ou-90° ainsi qu'a leur faire occuper toute la page.
pour l'instant j'arrive à l'exporter par cette fonction la fonction qui suit.
Mais je n'arrive pas à faire tourner et agrandir cette coppy de façon automatique
si quelqu'un pouvais m'aider!!!!!
Private Sub imprimersousword_Click()
Dim wdApp As Object
Dim wd As Object
Dim img As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wd = wdApp.Documents.Open("C:\Documents and Settings\gedatel2\Bureau\Doc1.doc ")
wdApp.Visible = True
Set img = Range("A1:L43")
img.CopyPicture xlScreen, xlPicture
wd.Range.Paste
Set wdApp = Nothing
Set wd = Selection
End Sub
je suis en train d'essayer de récupérer des schémas effectué sur excel en fonction d'une série d'information
Je doit envoyer ces schémas dans un doc word et leur faire effectuer une rotation à +ou-90° ainsi qu'a leur faire occuper toute la page.
pour l'instant j'arrive à l'exporter par cette fonction la fonction qui suit.
Mais je n'arrive pas à faire tourner et agrandir cette coppy de façon automatique
si quelqu'un pouvais m'aider!!!!!
Private Sub imprimersousword_Click()
Dim wdApp As Object
Dim wd As Object
Dim img As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wd = wdApp.Documents.Open("C:\Documents and Settings\gedatel2\Bureau\Doc1.doc ")
wdApp.Visible = True
Set img = Range("A1:L43")
img.CopyPicture xlScreen, xlPicture
wd.Range.Paste
Set wdApp = Nothing
Set wd = Selection
End Sub