Programma di conversione da Immagine a PDF

Contaldo Pixel Luigi

Nuovo Utente
27 Gen 2015
5
0
0
Ciao a tutti,

Nessuno conosce un programma efficente e freeware che converta una serie di file dentro una cartella nei relativi file ( con stesso nome ) in formato PDF ... mi sta venendo il callo all'indice a furia di convertili manualmente


Grazie
LC
 

marino51

Utente Attivo
28 Feb 2013
3.203
207
63
Lombardia
ho importato un'immagine in Excel 2007, ed ho creato il pdf,
mettendo in un foglio l'elenco dei file,
nel secondo definendo l'area di stampa,
con una piccola macro,
leggendo riga x riga dal primo foglio
si importa l'immagine nel secondo
la si stampa,
si cancella l'immagine
si passa alla riga successiva

ma ... bisogna avere excel
 

Contaldo Pixel Luigi

Nuovo Utente
27 Gen 2015
5
0
0
ho importato un'immagine in Excel 2007, ed ho creato il pdf,
mettendo in un foglio l'elenco dei file,
nel secondo definendo l'area di stampa,
con una piccola macro,
leggendo riga x riga dal primo foglio
si importa l'immagine nel secondo
la si stampa,
si cancella l'immagine
si passa alla riga successiva

ma ... bisogna avere excel

Andrebbe benissimo, mi manderesti i dettagli della macro, anche in PM se non vuoi renderla pubblica!

Grazie mille
 

marino51

Utente Attivo
28 Feb 2013
3.203
207
63
Lombardia
questo è il risultato
Cattura1.PNG

nel foglio 1 nella cella A1 deve esserci il path completo (esclusa "\" finale)
dalla cella A2 in poi, l'elenco delle immagini
la prima riga bianca determina la fine del lavoro
il lavoro termina anche se un file non viene trovato
Cattura2.PNG

questa è la macro
Codice:
Sub MyMacro()
    Dim mypath As String
    Dim myfile As String
    Dim myrow  As Integer
    Dim mypic  As String
    Dim myend  As Boolean
    Dim myobj  As Object

    mypath = Sheets("Foglio1").Cells(1, 1) 'riga 1 colonna A
    myrow = 1
    myend = False

    Sheets("Foglio2").Select
    Do While myend = False
    
        myrow = myrow + 1
        mypic = Sheets("Foglio1").Cells(myrow, 1)

        If mypic = "" Then
            myend = True
            MsgBox ("riga bianca" & vbCrLf & "HO FINITO")
            Exit Sub
        End If
        myfile = mypath & "\" & mypic
        If Dir(myfile) = "" Then
            myend = True
            MsgBox (myfile & vbCrLf & "ERRORE : FILE NON TROVATO")
            Exit Sub
        End If
    
        InsertPicture myfile, Range("A1"), True, True
    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myfile & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True

        For Each myobj In ActiveSheet.Pictures
            myobj.Delete
        Next myobj
    Loop
End Sub

Sub InsertPicture(PictureFileName As String, TargetCell As Range, _
    CenterH As Boolean, CenterV As Boolean)
' inserts a picture at the top left position of TargetCell
' the picture can be centered horizontally and/or vertically
    Dim p As Object, t As Double, l As Double, w As Double, h As Double
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    If Dir(PictureFileName) = "" Then Exit Sub
    ' import picture
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    ' determine positions
    With TargetCell
        t = .Top
        l = .Left
        If CenterH Then
            w = .Offset(0, 1).Left - .Left
            l = l + w / 2 - p.Width / 2
            If l < 1 Then l = 1
        End If
        If CenterV Then
            h = .Offset(1, 0).Top - .Top
            t = t + h / 2 - p.Height / 2
            If t < 1 Then t = 1
        End If
    End With
    ' position picture
    With p
        .Top = t
        .Left = l
    End With
    Set p = Nothing
End Sub


ps
OpenAfterPublish:=False
non apre il pdf
 
Ultima modifica:
Discussioni simili
Autore Titolo Forum Risposte Data
G Finestra di dialogo che non si apre - programma NUENDO Windows e Software 0
M Start-up programma di affiliazione Vendere e Acquistare pubblicita' online 0
L Aiuto per programma web php/mySQL PHP 2
miglior servizio1 programma per incrementare seguaci su instagram Annunci servizi di Social Media Marketing 0
L Programma per registrare solo schermo Mac e Software 4
F programma che vi permette di ottenere like e followers! senza limiti Annunci servizi di Social Media Marketing 0
M [HTML] come si chiama questo programma HTML e CSS 1
G Programma per monitorare cpu e memoria Windows e Software 6
A con che programma creo il mio sito? Webdesign e Grafica 1
Alias85 Programma per un gioco Offerte e Richieste di Lavoro e/o Collaborazione 3
K [javascript] Aiuto per programma subnetting Javascript 0
D programma creare siti web Windows e Software 9
F Programma C per la gestione di grandi quantità di dati C/C++ 0
J C# Programma console che calcola il volume di una scatola .NET Framework 2
J Programma che prende continuamente input da console .NET Framework 1
A Affiliatery - Italia programma affiliati Guadagnare col Sito 0
N Programma di Affiliazione / Mondo Trading Guadagnare col Sito 0
MarcoGrazia Il programma non invia i dati richiesti AJAX jQuery 3
filippino Programma di affiliazione che remunera in Bitcoin? Guadagnare col Sito 3
1 Errore di istallazione programma vb2010 con access in allegato MS Access 8
1 Problema riscontrato nell'esecuzione da programma istallato Programmazione 0
felino Edit video: quale programma consigliate? Windows e Software 2
N Programma per gestire Cookies secondo disposizioni del Garante Privacy 3/6/2014 G.U. 126 Leggi, Normative e Fisco 0
N nuovo utente - programma di affiliazione Presentati al Forum 6
il_bauscia errori di file system: programma free per correggere? Hardware 1
filippino Programma per criptare cartelle in windows 8 Windows e Software 1
filippino Programma per fare l'immagine dell'hard disk Windows e Software 2
Sevenjeak Controllare dipendenze del programma Java 1
F problema con programma ecomerce PHP 0
felino Web Scraping: qualche programma usare? Windows e Software 2
P Problemi disinstallazione programma Windows e Software 1
A Aiuto distribuzione programma VC++ C/C++ 0
S programma affiliazione Guadagnare col Sito 0
H Debugger per programma? .NET Framework 1
F Esiste un programma che verifica la home page e la corregge automaticamente? HTML e CSS 7
H Programma in vb che logga in un sito? Visual Basic 1
P Programma per estrarre email...consigli ! Email Marketing 0
F programma di affiliazione 24option. Guadagnare col Sito 0
C Problemi con il programma Gimp Webdesign e Grafica 0
Frank10 Quale programma usate per fare siti? HTML e CSS 48
A spiegazione del programma che implementa gli alberi in java Java 7
max_400 Programma pubblicitario nel broswer!! AIUTO!!!!, Google Chrome.... Discussioni Varie 5
B Programma in Joomla Joomla 2
orlakio esiste un programma che richiede il tuo nome all'entrata di un sito e poi ti saluta?!?!?!? Javascript 4
F Programma PHP che esegue backup e ripristino di database SQL SERVER PHP 12
G Programma alternativo all'Easy PHP PHP 7
C [Visual Basic] Installare un programma con pacchetto di installazione Visual Basic 0
M Programma in C Programmazione 0
L Qual'è il migliore programma per una piattaforma di eCommerce? CMS (Content Management System) 0
L perché questo programma non funziona? Programmazione 0

Discussioni simili