Quando si sviluppa un'applicazione o una macro di Microsoft Office utilizzando Visual Basic 6, si consiglia di applicare una rotazione specifica per InlineShapes. InlineShapes sono oggetti, come ad esempio immagini o controlli Active X, che sono incorporati in un documento di testo. È possibile ruotare InlineShapes modificando il codice sorgente dell'applicazione e la creazione di una nuova procedura.

istruzione

1 Aprire il codice sorgente della propria applicazione Visual Basic sia in un editor di testo come Blocco note di Windows o uno strumento di sviluppo dedicato.

2 Dichiarare una nuova procedura secondaria denominata "RotateInlineShapeSub ()" inserendo la seguente istruzione nel codice sorgente dell'applicazione.

Sub RotateInlineShapeSub ()

3 Definire le variabili necessarie per la procedura secondaria incollando il seguente frammento di codice dopo l'istruzione di dichiarazione sotto:

in linea fioco come InlineShape
tempshape fioco come Forma
ActDoc fioco come documento
Set ActDoc = ActiveDocument

4 Copiare e incollare il seguente frammento di codice dopo la dichiarazione della variabile per consentire al programma per convertire InlineShapes in forme regolari:

Per ogni linea in ActDoc.InlineShapes
inline.ConvertToShape
Il prossimo

Visual Basic non può ruotare direttamente InlineShapes, il che spiega perché è necessario prima convertirli in forme.

5 Inserire il seguente frammento di codice subito dopo il precedente di applicare una rotazione alle forme. Se necessario, sostituire "180" da un angolo di rotazione differente.

Per ogni tempshape In ActDoc.Shapes
tempshape.IncrementRotation 180
Il prossimo

6 Copiare e incollare il seguente frammento di codice dopo la precedente per convertire le forme di nuovo in InlineShapes di nuovo.

Per ogni tempshape In DocThis.Shapes
tempshape.ConvertToInlineShape
Il prossimo

7 Inserire il seguente frammento di codice, se si desidera che l'applicazione per visualizzare un messaggio di conferma. Sostituire "InlineShape ruotato" con un messaggio di conferma diverso, se lo si desidera.

MsgBox "InlineShape ruotato"

8 Chiudere la routine Sub di Visual Basic digitando la seguente dichiarazione:

End Sub

9 Eseguire la procedura secondaria inserendo la seguente dichiarazione chiamata nel punto in cui si desidera che il programma per applicare la rotazione:

Chiamare RotateInlineShapeSub ()

10 Salvare il file.