Partager via


Propriété Document.Company (Visio)

Récupère ou définit le nom de la société à laquelle appartient le document, l’une des propriétés du document. Lecture-écriture.

Syntaxe

expression. Société

Expression Variable qui représente un objet Document .

Valeur renvoyée

Chaîne

Remarques

Définir la propriété Company équivaut à entrer des informations dans la zone Société de la boîte de dialogue Propriétés (cliquez sur l’onglet Fichier , sur Informations, sur Propriétés, puis sur Propriétés avancées).

Exemple

Cette macro Microsoft Visual Basic (VBA) indique comment utiliser la propriété Company pour documenter la société à laquelle est destiné le dessin. Elle ajoute un objet Document à la collection Documents et définit la propriété Company de l'objet Document ainsi que d'autres propriétés.

Avant d’exécuter cette macro, remplacez les éléments en italique par vos propres valeurs dans le code suivant. Pour vérifier que ces propriétés ont été définies, ouvrez la boîte de dialogue Propriétés.

 
Public Sub Company_Example() 
  
    Dim vsoDocument As Visio.Document  
 
    Set vsoDocument = Documents.Add("")  
 
    'Set the properties of the document.  
    vsoDocument.Title = "document title "  
    vsoDocument.Creator = "author name "  
    vsoDocument.Description = "document description "  
    vsoDocument.Keywords = "keyword1, keyword2, keyword3 "  
    vsoDocument.Subject = "document subject "  
    vsoDocument.Manager = "manager name "  
    vsoDocument.Company = "company name "  
 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.