Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como girar um InlineShape em VB6
Ao desenvolver uma aplicação ou uma macro do Microsoft Office usando o Visual Basic 6, você pode querer aplicar uma rotação específica para InlineShapes . InlineShapes são objetos, como imagens ou controles Active X , que são incorporados em um documento de texto. Você pode girar InlineShapes editando o código-fonte do seu aplicativo e criar um novo procedimento. Instruções
1

Abra o código-fonte do seu aplicativo Visual Basic em um editor de texto , como o Notepad do Windows ou uma ferramenta de desenvolvimento dedicado.
2

Declare um novo procedimento sub chamado " RotateInlineShapeSub ()" , inserindo a seguinte declaração no código-fonte do aplicativo.

sub RotateInlineShapeSub ()
3

Definir as variáveis ​​necessárias para o procedimento sub colando o seguinte trecho de código após a instrução sub declaração :

Dim linha Como InlineShapeDim tempshape Como ShapeDim ActDoc Como DocumentSet ActDoc = ActiveDocument
4

Copie e cole o seguinte trecho de código após o declaração da variável para permitir que seu programa para converter InlineShapes em formas regulares :

Para Cada linha Em ActDoc.InlineShapesinline.ConvertToShapeNext

Visual Basic não pode rodar diretamente InlineShapes , o que explica por que você deve primeiro convertê-los em formas.
5

Insira o seguinte trecho de código logo após o anterior para aplicar uma rotação para as formas. Se necessário, substitua "180" por um ângulo de rotação diferente.

Para Cada tempshape Em ActDoc.Shapestempshape.IncrementRotation 180Next
6

Copie e cole o seguinte trecho de código depois que o anterior um para converter as formas de volta para InlineShapes novamente.

Para Cada tempshape Em DocThis.Shapestempshape.ConvertToInlineShapeNext
7

Insira o seguinte trecho de código se você quiser que seu aplicativo para exibir uma mensagem de confirmação . Substituir " InlineShape rodado " com uma mensagem de confirmação diferente , se quiser

MsgBox " InlineShape rodado "
8

Feche o procedimento sub Visual Basic , digitando o seguinte comunicado. :

End Sub
9

Execute o procedimento sub inserindo a seguinte instrução de chamada no ponto onde você quer que seu programa para aplicar a rotação :

Chame RotateInlineShapeSub ( )
10

Salve o arquivo.

Anterior :

Próximo : No
  Os artigos relacionados
·Visual Gmail Básico Falha ao conectar ao servidor 
·Como redirecionar para um servidor diferente 
·Como converter DirectX Stereoscopic Tri Vert 
·Como criar hiperlinks com base em nomes de pasta utiliz…
·Como adicionar VBScript para Excel 
  Artigos em destaque
·Como Utilizar Marcadores no Word 
·Como abrir uma confirmação Webpage Através PerlScrip…
·Como fazer uma Div Pop -up 
·Como redimensionar imagens utilizando C # 
·Diferença entre URS & SRS 
·Como Criar novo arquivo em Java 
·Como limitar a 100 palavras em PHP 
·Como adicionar um Link permanente 
·MySQL é lenta, com muitas conexões persistentes 
·Como inserir uma imagem em um e-mail HTML usando PHP 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados