Partager via


Méthode Application.ZoomReport (Project)

Zoome (agrandit ou réduit) le rapport actif sur le pourcentage spécifié de sa taille d’origine.

Syntaxe

expression. ZoomReport (Pourcentage,Entier)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom Requis/Facultatif Type de données Description
Pourcentage Facultatif Variant Pourcentage de la taille d’origine.
Entier Facultatif Variant Le paramètre Entire n’a aucun effet.
Pourcentage Facultatif Variant
Entier Facultatif Variant
Nom Requis/Facultatif Type de données Description

Valeur renvoyée

Boolean

Remarques

Le paramètre Percent peut avoir une valeur de 10 à 400. Si la valeur est en dehors de cette plage, la méthode ZoomReport affiche une erreur d’exécution 1101, « La valeur de l’argument n’est pas valide ».

La méthode ZoomReport peut être appliquée à des rapports personnalisés et à des rapports intégrés, tels que Vue d’ensemble du projet. Lorsque vous modifiez la taille du rapport, basculez vers une autre vue, puis revenez au rapport précédent, le niveau de zoom reste en vigueur. Pour restaurer la taille d’origine, utilisez la commande suivante : ZoomReport 100.

Exemple

L’exemple suivant vérifie si un rapport existe : Si c’est le cas, l’exemple affiche le rapport, puis effectue un zoom sur 80 % de sa taille d’origine.

Sub ReportZoom()
    Dim reportName As String
    reportName = "Report 1"
    
    If ActiveProject.Reports.IsPresent(reportName) Then
        ApplyReport reportName
        ZoomReport 80
    Else
        MsgBox Prompt:="No custom report name: " & reportName, Title:="Report apply error"
    End If
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.