{"id":384,"date":"2015-02-25T00:28:38","date_gmt":"2015-02-25T04:28:38","guid":{"rendered":"http:\/\/agiltools.com\/blogsp\/?p=384"},"modified":"2016-03-08T08:25:10","modified_gmt":"2016-03-08T14:25:10","slug":"pdf-excel","status":"publish","type":"post","link":"https:\/\/agiltools.com\/blogsp\/pdf-excel\/","title":{"rendered":"Macro para incrustar archivos PDF en Excel"},"content":{"rendered":"<div id=\"dslc-theme-content\"><div id=\"dslc-theme-content-inner\"><p>Para incrustar\u00a0un archivo PDF en\u00a0Excel es necesario tener instalado un visor PDF cualquiera en su computador, en este caso utilizamos como referencia Acrobat Reader pues es tal vez el m\u00e1s popular\u00a0y agregar a la lista de referencias el controlador\u00a0Adobe Acrobat Browser Control Type Library 1.0 (ver imagen)<\/p>\n<p><a href=\"http:\/\/agiltools.com\/blogsp\/wp-content\/uploads\/2015\/02\/pdfForm.png\"><img loading=\"lazy\" class=\"aligncenter wp-image-388 size-large\" src=\"http:\/\/agiltools.com\/blogsp\/wp-content\/uploads\/2015\/02\/pdfForm-1024x761.png\" alt=\"pdfForm\" width=\"474\" height=\"352\" srcset=\"https:\/\/agiltools.com\/blogsp\/wp-content\/uploads\/2015\/02\/pdfForm-1024x761.png 1024w, https:\/\/agiltools.com\/blogsp\/wp-content\/uploads\/2015\/02\/pdfForm-300x223.png 300w, https:\/\/agiltools.com\/blogsp\/wp-content\/uploads\/2015\/02\/pdfForm.png 1222w\" sizes=\"(max-width: 474px) 100vw, 474px\" \/><\/a><\/p>\n<p>A continuacion es necesario crear un formulario suficientemente grande para contener una p\u00e1gina de lectura del archivo PDF. Llamaremos a este formulario <strong>PdfForm<\/strong><\/p>\n<p>Luego creamos una funci\u00f3n para llamar el formulario con el archivo PDF ya cargado. Llamaremos a esta funci\u00f3n <strong>LoadPDF<\/strong>. El c\u00f3digo se encuentra a continuaci\u00f3n:<\/p>\n<pre class=\"lang:vb decode:true\">Sub LoadPDF(FicPdf As String, NoPage As Integer)\r\n    'Creacion del objeto\r\n    Set mObjPDF = PdfForm.Controls.Add(\"AcroPDF.PDF.1\", \"VisuPDF\")\r\n    ch = mObjPDF.src\r\n    'Llamar la version de acrobat\r\n    ver = mObjPDF.GetVersions\r\n    'Parametros en la ventana de Acrobat\r\n    With PdfForm.Controls(\"VisuPDF\")\r\n      .Visible = True\r\n      'Determinar alto y ancho de la ventana en el formulario\r\n      .Height = PdfForm.Height - 20\r\n      .Width = PdfForm.Width - 5\r\n    'mObjPDF.setViewRect 0, 0, 650, 580\r\n    End With\r\n    'Parametros del objeto pdf\r\n    With mObjPDF\r\n      .src = FicPdf 'Nombre del archivo o URL\r\n      .setShowScrollbars (True) \r\n      .setShowToolbar (True) \r\n      .setPageMode (\"none\") 'Determina el mode de presentacion: none\/bookmarks\/thumbs\r\n      .setLayoutMode (\"SinglePage\") 'Typo de presentacion: DontCare\/SinglePage\/OneColumn\/TwoColumnLeft\/TwoColumnRight\r\n      .setCurrentPage (NoPage) 'Numero de la pagina a presentar\r\n      .setView (\"Fit\") 'Tipo de presentacion: Fit\/FitH\/FitV\/FitB\/FitBH\/FitB\r\n      '.setZoom (100) 'Determina el zoom\r\n    End With\r\n    'Presentar la hoja:\r\n    PdfForm.Show\r\nEnd Sub\r\n<\/pre>\n<p>Lo dem\u00e1s es sencillo, requiere crear una macro que llame la funci\u00f3n <strong>LoadPDF\u00a0<\/strong>con el par\u00e1metro \u00a0correcto (ruta del archivo a abrir).<\/p>\n<p>Un ejemplo de como se incorporan estas funciones se puede descargar en el siguiente <a title=\"read pdf\" href=\"http:\/\/agiltools.com\/Resources\/Read%20pdf.zip\">link<\/a>.<\/p>\n<div class=\"sharedaddy sd-sharing-enabled\"><div class=\"robots-nocontent sd-block sd-social sd-social-icon-text sd-sharing\"><div class=\"sd-content\"><ul><li class=\"share-twitter\"><a rel=\"nofollow noopener noreferrer\" data-shared=\"sharing-twitter-384\" class=\"share-twitter sd-button share-icon\" href=\"https:\/\/agiltools.com\/blogsp\/pdf-excel\/?share=twitter\" target=\"_blank\" title=\"Click to share on Twitter\"><span>Twitter<\/span><\/a><\/li><li class=\"share-facebook\"><a rel=\"nofollow noopener noreferrer\" data-shared=\"sharing-facebook-384\" class=\"share-facebook sd-button share-icon\" href=\"https:\/\/agiltools.com\/blogsp\/pdf-excel\/?share=facebook\" target=\"_blank\" title=\"Click to share on Facebook\"><span>Facebook<\/span><\/a><\/li><li class=\"share-end\"><\/li><\/ul><\/div><\/div><\/div><\/div><\/div>","protected":false},"excerpt":{"rendered":"<p>Para incrustar\u00a0un archivo PDF en\u00a0Excel es necesario tener instalado un visor PDF cualquiera en su computador, en este caso utilizamos como referencia Acrobat Reader pues es tal vez el m\u00e1s popular\u00a0y agregar a la lista de referencias el controlador\u00a0Adobe Acrobat Browser Control Type Library 1.0 (ver imagen) A continuacion es necesario crear un formulario suficientemente [&hellip;]<\/p>\n<div class=\"sharedaddy sd-sharing-enabled\"><div class=\"robots-nocontent sd-block sd-social sd-social-icon-text sd-sharing\"><div class=\"sd-content\"><ul><li class=\"share-twitter\"><a rel=\"nofollow noopener noreferrer\" data-shared=\"sharing-twitter-384\" class=\"share-twitter sd-button share-icon\" href=\"https:\/\/agiltools.com\/blogsp\/pdf-excel\/?share=twitter\" target=\"_blank\" title=\"Click to share on Twitter\"><span>Twitter<\/span><\/a><\/li><li class=\"share-facebook\"><a rel=\"nofollow noopener noreferrer\" data-shared=\"sharing-facebook-384\" class=\"share-facebook sd-button share-icon\" href=\"https:\/\/agiltools.com\/blogsp\/pdf-excel\/?share=facebook\" target=\"_blank\" title=\"Click to share on Facebook\"><span>Facebook<\/span><\/a><\/li><li class=\"share-end\"><\/li><\/ul><\/div><\/div><\/div>","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_mi_skip_tracking":false,"spay_email":""},"categories":[21],"tags":[68,24],"jetpack_featured_media_url":"","jetpack_likes_enabled":true,"jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/posts\/384"}],"collection":[{"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/comments?post=384"}],"version-history":[{"count":11,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/posts\/384\/revisions"}],"predecessor-version":[{"id":950,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/posts\/384\/revisions\/950"}],"wp:attachment":[{"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/media?parent=384"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/categories?post=384"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/tags?post=384"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}