PDA

View Full Version : [VB] inserire immagini in word da picturebox


Reichard
11-10-2019, 20:33
Ciao a tutti, è un po' di tempo che sto cercando di risolvere questo problema, devo salvare all'interno di un file word del testo e delle immagini.
Le immagini sono salvate all'interno di una picturebox

il codice usato fin'ora è questo:

Imports System.Configuration
Imports System.IO
Imports System.Data.OleDb
Imports System.IO.File
Imports word = Microsoft.Office.Interop.Word

Dim testo As word.Application
Dim pagina As word.Document
Dim Paragrafo As word.Paragraph
Dim oRng As word.Range
testo = CreateObject("word.application")
testo.Visible = True
pagina = testo.Documents.Add
Paragrafo = pagina.Content.Paragraphs.Add
Paragrafo.Range.InlineShapes.AddPicture(FileName:="B:\Pictures\25.jpg",
LinkToFile:=False, SaveWithDocument:=True)


io invece del percorso esempio B:\Pictures\25.jpg devo indicare una picturebox.

qualcuno riesce a darmi una mano?

radeon_snorky
03-11-2019, 08:23
Ciao a tutti, è un po' di tempo che sto cercando di risolvere questo problema, devo salvare all'interno di un file word del testo e delle immagini.
Le immagini sono salvate all'interno di una picturebox

il codice usato fin'ora è questo:

Imports System.Configuration
Imports System.IO
Imports System.Data.OleDb
Imports System.IO.File
Imports word = Microsoft.Office.Interop.Word

Dim testo As word.Application
Dim pagina As word.Document
Dim Paragrafo As word.Paragraph
Dim oRng As word.Range
testo = CreateObject("word.application")
testo.Visible = True
pagina = testo.Documents.Add
Paragrafo = pagina.Content.Paragraphs.Add
Paragrafo.Range.InlineShapes.AddPicture(FileName:="B:\Pictures\25.jpg",
LinkToFile:=False, SaveWithDocument:=True)


io invece del percorso esempio B:\Pictures\25.jpg devo indicare una picturebox.

qualcuno riesce a darmi una mano?
picturebox.image punta ad un percorso su disco?