Hoje, vou mostrar como podemos fazer uma rotina em VBA para inserir uma imagem.
Imaginem que têm uma rotina que vos prepara a folha de trabalho, onde têm de incluir uma imagem no logo.
Para Autocad :
Option Explicit
Sub inserir_imagem()
Dim insertionPoint(0 To 2) As Double
Dim scalefactor As Double
Dim rotationAngle As Double
Dim nomeimagem As String
Dim rasterOBj As AcadRasterImage
nomeimagem = "c:\imagem.jpg"
insertionPoint(0) = 12#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
scalefactor = 1#
rotationAngle = 0
Set rasterOBj = ThisDrawing.ModelSpace.AddRaster(nomeimagem, insertionPoint, scalefactor, rotationAngle)
End Sub
Para GstarCad :
Option Explicit
Sub inserir_imagem()
Dim insertionPoint(0 To 2) As Double
Dim scalefactor As Double
Dim rotationAngle As Double
Dim nomeimagem As String
Dim rasterObj As GcadRasterImage
nomeimagem = "c:\imagem.jpg"
insertionPoint(0) = 12#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
scalefactor = 1#
rotationAngle = 0
Set rasterObj = thisDrawing.ModelSpace.AddRaster(nomeimagem, insertionPoint, scalefactor, rotationAngle)
End Sub
Para ZwCad :
Option Explicit
Sub inserir_imagem()
Dim insertionPoint(0 To 2) As Double
Dim scalefactor As Double
Dim rotationAngle As Double
Dim nomeimagem As String
Dim rasterOBj As ZwcadRasterImage
nomeimagem = "c:\imagem.jpg"
insertionPoint(0) = 12#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
scalefactor = 1#
rotationAngle = 0
Set rasterOBj = ThisDocument.ModelSpace.AddRaster(nomeimagem, insertionPoint, scalefactor, rotationAngle)
End Sub
Para Bricscad :
Option Explicit
Sub inserir_imagem()
Dim insertionPoint(0 To 2) As Double
Dim scalefactor As Double
Dim rotationAngle As Double
Dim nomeimagem As String
Dim rasterOBj As AcadRasterImage
nomeimagem = "c:\imagem.jpg"
insertionPoint(0) = 12#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
scalefactor = 1#
rotationAngle = 0
Set rasterOBj = ThisDrawing.ModelSpace.AddRaster(nomeimagem, insertionPoint, scalefactor, rotationAngle)
End Sub
Obrigado a todos.
Boa programação
Sem comentários:
Enviar um comentário