[Resolvido]Exportar com Imagem...como implementar

Bom dia
Esse exemplo versa sobre como exportar access para word.
Acrescentei uma rotina de anexar imagem ao form e no modelo do word.
Todavia, quando realizo a exportação, só vai o endereço e não a imagem.

Tentei acrescentando essa rotina...
MiWord.ActiveDocument.Bookmarks("image").Select
MiWord.Selection.InlineShapes.AddPicture FileName:="" & Forms!frmTeste!SubDadosBase.Form!Foto & "", LinkToFile:=False, SaveWithDocument:=True

Depois assim...
.ActiveDocument.Bookmarks("image").Select
.Selection.InlineShapes.AddPicture FileName:="" & Forms!frmTeste!SubDadosBase.Form!Foto & "", LinkToFile:=False, SaveWithDocument:=True


Mas me falta conhecimento para resolver.
Alguém poderia ajudar.......

Up

Dando um up.

Dando um up.

Olá;

Teste e retorne por favor;

Código:

Private Sub brGerarDoc_Click()
Dim wdApl As Object
Dim strLocal As String
On Error GoTo 1

Set wdApl = CreateObject("Word.Application")
'--------------------------
'Abre o arquivo do Word
'--------------------------
wdApl.Documents.Open FileName:=CurrentProject.Path & "\BookmarksModelo.dotx" ',passwordDocument:="SenhaDoDocumento"
With wdApl
'Posiciona o cursor no INDICADOR I1 e preenche com a tada do processo
.ActiveDocument.Bookmarks("I1").Select: .Selection.Text = Nz(Format(Me!DataProcesso, "dd \de mmmm \de yyyy"))
'Posiciona o cursor no INDICADOR I2 e preenche com o assunto
.ActiveDocument.Bookmarks("I2").Select: .Selection.Text = Nz(Me!Assunto)
.ActiveDocument.Bookmarks("I3").Select: .Selection.Text = Nz(Me!Instituidor)
.ActiveDocument.Bookmarks("I4").Select: .Selection.Text = Nz(Me!Recorrente)
.ActiveDocument.Bookmarks("I5").Select: .Selection.Text = Nz(Me!Processo)
.ActiveDocument.Bookmarks("I6").Select: .Selection.Text = Nz(Me!Notificação)
.ActiveDocument.Bookmarks("I7").Select: .Selection.Text = Nz(Me!RecursoAdministrativo)
.ActiveDocument.Bookmarks("I8").Select: .Selection.Text = Nz(Me!Manifestação)
.ActiveDocument.Bookmarks("I9").Select: .Selection.Text = Nz(Me!Origem)
.ActiveDocument.Bookmarks("I10").Select: .Selection.Text = Nz(Me!Estudo)
.ActiveDocument.Bookmarks("I11").Select: .Selection.Text = Nz(Me!RecursoAdministrativo)
.ActiveDocument.Bookmarks("I12").Select: .Selection.Text = Nz(Me!Estudo)

 Dim GraphImage$
 GraphImage = Nz(Me!Foto, "")
 .ActiveDocument.Shapes.AddPicture FileName:=GraphImage, LinkToFile:=False, SaveWithDocument:=True, _
 Left:=-90, Top:=520, _
 Anchor:=.ActiveDocument.Range(0, 0), _
Width:=100, _
Height:=100
'---------------------------------------------------------
'Salva o documento preenchido no mesmo local do aplicativo
'----------------------------------------------------------
strLocal = CurrentProject.Path & "\Doc-" & Nz(Replace(Me!Assunto, " ", "")) & "-" & Format(Now, "hhmmss") & ".doc"
.ActiveDocument.SaveAs strLocal ', Password:="123"
'------------------
'Fecha o documento
'------------------
.ActiveDocument.Close
'-------------
'Fecha o Word
'-------------
.Quit
End With
'Limpa a memória
Set wdApl = Nothing
'---------------------------------------------------------
'Abre o documento preechido para visualização e impressão
'---------------------------------------------------------
Application.FollowHyperlink strLocal

1:
If Err.Number = 462 Then
  If Not (wdApl Is Nothing) Then
    wdApl.Close (False)
    Set wdApl = Nothing
  End If
End If
End Sub

Bom dia J Paulo
Obrigado.
Funcionou.
Só uma dúvida a mais.
Se fosse mais de uma figura como ficaria a codificação?
Obrigado.

Fico feliz.

Só indo testando, porque você tem de dar a posição onde a imagem vai ficar no doc.

Entendo...

independente do do local seria assim?


Dim GraphImage$
GraphImage = Nz(Me!Foto, "")
GraphImage = Nz(Me!Foto1, "")
.ActiveDocument.Shapes.AddPicture FileName:=GraphImage, LinkToFile:=False, SaveWithDocument:=True, _
Left:=-90, Top:=520, _
Left:=-190, Top:=600, _
Anchor:=.ActiveDocument.Range(0, 0), _
Width:=100, _
Height:=100

Width:=200, _
Height:=200

Assim não vai dar mesmo.

Tem de testar independente e ir acertando a posição das imagens;

Código:

 Dim GraphImage$
 Dim GraphImage1$
 GraphImage = Nz(Me!Foto, "")
 GraphImage1 = Nz(Me!Foto, "")
 .ActiveDocument.Shapes.AddPicture fileName:=GraphImage, LinkToFile:=False, SaveWithDocument:=True, _
 Left:=-90, Top:=520, _
 Anchor:=.ActiveDocument.Range(0, 0), _
Width:=100, _
Height:=100

 .ActiveDocument.Shapes.AddPicture fileName:=GraphImage1, LinkToFile:=False, SaveWithDocument:=True, _
 Left:=-180, Top:=1040, _
 Anchor:=.ActiveDocument.Range(0, 0), _
Width:=100, _
Height:=100

Vou testar.
Se der erro peço help de novo.
Obrigado.