Titre du sujet : Re: Insérer un pdf à l'aide d'une macro par myDearFriend! le 15/04/2010 18:07:14
Re vodkaddict,
Bonjour Guy (pardon, je ne t'avais pas vu arriver tout à l'heure)
Citation : vodkaddict a écrit :
@ myDearFriend!
saurais tu me dire pourquoi à chaque 1ère utilisation de ta macro, l'image est en paysage alors que le pdf est en portrait ? Sachant que pour les 2ème, 3ème,... l'image est bien en portrait ?
Non, aucune idée.
Cela dit, tu peux contrôler la taille de l'objet inséré à ta guise et je pense que tu sais le faire...
A toutes fins utiles : (voir les 2 lignes ajoutées ci-dessous) :
Sub InsererPDF()
'myDearFriend! - www.mdf-xlpages.com
Dim Obj As OLEObject
Dim Chemin As Variant
Dim T As String
'Choix du fichier PDF
Chemin = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf", Title:="Choisir le fichier .PDF à insérer")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False
'Création nouvelle feuille
With Worksheets.Add(After:=Worksheets(Worksheets.Count))
On Error Resume Next
.Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31)
'Insertion de l'objet PDF
Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=True, DisplayAsIcon:=False)
End With
Obj.Left = 1
Obj.Top = 1
Obj.Width = 210 'Ajustement Largeur ***************
Obj.Height = 297 'Ajustement Hauteur ***************
Application.ScreenUpdating = True
End Sub
Petit rappel au passage : Excel est un tableur.
Cordialement,
|