Mme Office Tune En haut

Un de mes buts dans ce livre est de vous présenter des trucs qui sont pratiques dans le sens que vous pouvez les utiliser tout de suite pour être plus productifs ou plus efficaces. J'essaie aussi de me concentrer à réduire la corvée, surtout en automatisant des tâches ennuyeuses ou de routine avec les macros. Le truc de cette section n'est pas pratique même à distance, mais je crois qu'il tombe un peu dans la "corvée réduisante” la catégorie, comme vous verrez (j'espère!). This section’s trick isn’t even remotely practical, but I think it falls somewhat into the “reducing drudgery” category, as you’ll see (I hope!).

Nous tous avons de certains documents que nous utilisons presque chaque jour. Un bon exemple est un à - énumèrent vraiment qui est vérifié constamment tout au long du jour et c'est ajouté à ou effacé de comme nécessaire. N'importe quel document que vous regardez plusieurs fois par jour devient ennuyeux terriblement vite. Pour ajouter un peu d'intérêt visuel, la Liste 1 présente une macro qui applique une texture de base au hasard à un document indiqué. Any document that you look at many times a day gets boring awfully fast. To add some visual interest, Listing 1 presents a macro that applies a random background texture to a specified document.

La liste 1 une Macro qui Applique une Texture de Base Au hasard à un Document Indiqué

Le Public Sub ApplyRandomTexture (le docteur Comme le Document)
Sombre je Comme le Nombre entier
‘
‘ Initialisez le générateur de nombres aléatoires
‘
Randomize
‘
‘ Produisez un nombre aléatoire entre 1 et 24
‘
i = Int (24 * Rnd + 1)
‘
‘ Appliquez le nombre aléatoire comme une texture de base constante
‘
Fond de docteur. Se remplir. PresetTextured jePresetTextured i
Fin Sub

Le mot a 24 textures prédéterminées et on donne à ceux-ci le numéro 1 à 24 dans le modèle d'objet de Bureau (ceux-ci sont des constantes msoTexture). Ces utilisations macro la fonction de Rnd pour produire un nombre aléatoire entre 1 et 24 et utilisent ensuite la propriété PresetTextured d'appliquer la texture au hasard. Notez que la macro prend une variable de Document appelée le docteur comme son argument. Pour diriger cette macro chaque fois vous ouvrez un document, affichez le Rédacteur Fondamental Visuel, claquez le projet du document et cliquez deux fois ensuite sur l'objet de ThisDocument. Dans la liste d'Objet, choisissez le Document et dans l'élection de liste d'événement Ouverte. Dans le Document_Open () le bout qui affiche, ajoute l'ApplyRandomTexture ThisDocument la déclaration, comme montré dans la chose suivante : Note that the macro takes a Document variable named doc as its argument. To run this macro each time you open a document, display the Visual Basic Editor, click the doc­ument’s project, and then double-click the ThisDocument object. In the Object list, select Document and in the Event list select Open. In the Document_Open() stub that displays, add the ApplyRandomTexture ThisDocument statement, as shown in the following:
Sub Privé Document_Open ()
ApplyRandomTexture ThisDocument
Fin Sub

Étiquettes de Technorati : fond de texte au hasard

Popularité : 12 % [?]