{"id":501,"date":"2016-10-22T14:54:58","date_gmt":"2016-10-22T19:54:58","guid":{"rendered":"http:\/\/blog.espol.edu.ec\/cjbernal\/?p=501"},"modified":"2017-12-07T11:51:12","modified_gmt":"2017-12-07T16:51:12","slug":"cambiar-tamano-a-varias-imagenes-en-word-macros","status":"publish","type":"post","link":"https:\/\/blog.espol.edu.ec\/cjbernal\/2016\/10\/22\/cambiar-tamano-a-varias-imagenes-en-word-macros\/","title":{"rendered":"Cambiar tama\u00f1o a varias im\u00e1genes en Word (MACRO)"},"content":{"rendered":"

Este c\u00f3digo sirve para dimensionar algunas o todas las im\u00e1genes de un documento Word, de acuerdo a la selecci\u00f3n de las mismas; lo que se debe hacer es utilizar la herramienta Macros ubicada en la pesta\u00f1a Vista, o directamente (Alt+F8)<\/p>\n

    \n
  1. Damos un nombre al c\u00f3digo Macro que dimensionara las im\u00e1genes. En mi caso que es el mismo del ejemplo lo he llamado \u201cRe_Dimensionar_Imagen<\/strong>\u201d<\/em><\/li>\n
  2. Hacer clic en crear<\/li>\n
  3. Se abrir\u00e1 la ventana emergente \u201cMicrosoft Visual Basic para Aplicaciones\u201d<\/em> y en la cual pegar el siguiente c\u00f3digo:<\/li>\n<\/ol>\n

    <\/p>\n

    Sub Re_Dimensionar_Imagen<\/strong>()<\/p>\n

    \u00a0\u00a0 Dim ishp As Word.InlineShape<\/p>\n

    For Each ishp In Selection.InlineShapes<\/p>\n

    \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ishp.LockAspectRatio = False<\/p>\n

    \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ishp.Height = InchesToPoints(3<\/span> \/ 2.54)<\/p>\n

    \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ishp.Width = InchesToPoints(5<\/span> \/ 2.54)<\/p>\n

    Next ishp<\/p>\n

    End Sub<\/p>\n

      \n
    1. Una vez pegado el c\u00f3digo, este se guarda autom\u00e1ticamente.<\/li>\n
    2. Cierra la ventana y realiza una prueba<\/li>\n
    3. Inserta varias im\u00e1genes en un nuevo documento o sino en un informe o trabajo que contenga varias im\u00e1genes.<\/li>\n
    4. Selecciona el rango del documento que contenga a las im\u00e1genes que desees redimensionar; no necesariamente se debe escogerlas de una en una. Para hacerlo con todas las im\u00e1genes debes seleccionar todo o directamente (Ctrl+E)<\/li>\n
    5. Nos vamos a Macros y damos clic en \u201cver macros\u201d o sino (Alt+F8)<\/li>\n
    6. Seleccionamos nuestro macro (Re_Dimensionar_Imagen<\/strong><\/em>), damos clic en ejecutar y listo.<\/li>\n<\/ol>\n

      NOTA:<\/p>\n

        \n
      • Aseg\u00farate que la primera linea del c\u00f3digo contenga el mismo nombre que diste al momento de crear el Macro<\/li>\n
      • El texto con rojo en el c\u00f3digo representa el alto de la imagen, puedes editar este campo a tu gusto.<\/li>\n
      • El texto con azul\u00a0en el c\u00f3digo representa el ancho\u00a0de la imagen, puedes editar este campo a tu gusto.<\/li>\n<\/ul>\n

        Espero les sea de mucha utilidad, saludos a todos!<\/p>\n","protected":false},"excerpt":{"rendered":"

        Este c\u00f3digo sirve para dimensionar algunas o todas las im\u00e1genes de un documento Word, de acuerdo a la selecci\u00f3n de las mismas; lo que se debe hacer es utilizar la herramienta Macros ubicada en la pesta\u00f1a Vista, o directamente (Alt+F8) Damos un nombre al c\u00f3digo Macro que dimensionara las im\u00e1genes. En mi caso que es […]<\/p>\n","protected":false},"author":659,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1465],"tags":[1213112,1213114,593,1213116,1213113],"class_list":["post-501","post","type-post","status-publish","format-standard","hentry","category-investigacion","tag-cambiar-tamano-imagenes-word","tag-dimensionar-imagenes","tag-imagen","tag-macro-imagen","tag-tamano-imagenes"],"_links":{"self":[{"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/posts\/501","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/users\/659"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/comments?post=501"}],"version-history":[{"count":6,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/posts\/501\/revisions"}],"predecessor-version":[{"id":537,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/posts\/501\/revisions\/537"}],"wp:attachment":[{"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/media?parent=501"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/categories?post=501"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/tags?post=501"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}