Se connecter  
Suivez Informaticien.be sur Facebook  Suivez Informaticien.be sur Twitter  Suivez le Podcast Les Technos sur YouTube  Suivez le Podcast Les Technos sur iTunes  Suivez Informaticien.be via RSS
Supprimer un message
Raison de suppression du message (envoyée à l'utilisateur)

Voulez vous réellement supprimer ce message?  


etik
Trouve ca sur google, peut-etre te donner une piste ???

Code:
  1. Sub Insert_Pic()   
  2.    
  3. ' declare an InlineShape object variable  
  4.    
  5. Dim MyShape As Shape   
  6.    
  7. ' store the pointer to the new shape  
  8.    
  9. Set MyShape = ActiveDocument.Shapes.AddPicture(FileName:="C:\MySignature.bmp", LinkToFile:=False, SaveWithDocument:=True, Anchor:=Selection.Range)   
  10.    
  11. ' set properties of the Shape object  
  12.    
  13. With MyShape   
  14. .Width = 160   
  15. .Height = 49   
  16. .ZOrder msoSendBehindText   
  17. .WrapFormat.Type = wdWrapNone   
  18. .RelativeHorizontalPosition = wdRelativeHorizontalPositionCharacter   
  19. .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph   
  20. .Left = 0 
  21. .Top = InchesToPoints(0.02)   
  22. End With 
  23. End Sub

Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?