Cómo usar VBA para insertar una imagen en la posición del cursor

Insertar una imagen directamente en la ubicación del cursor de texto en un documento de Word no es una función de un solo clic en la cinta de opciones predeterminada. El menú estándar Insertar > Imágenes coloca la imagen en el cursor, pero a menudo cambia la alineación o requiere ajuste y posicionamiento manual. Usar una macro de VBA le brinda un control preciso sobre dónde queda la imagen y cómo se comporta. Este artículo explica cómo escribir una macro de VBA que inserte una imagen exactamente en la posición del cursor y la mantenga anclada al texto circundante.

Aprenderá los objetos principales de VBA como InlineShape y Range, las diferencias entre imágenes flotantes y en línea, y cómo manejar la selección de archivos. La guía incluye una macro lista para usar, explicaciones de cada línea y consejos para evitar errores comunes como la distorsión de la imagen o la ubicación incorrecta.

Por qué insertar imágenes en el cursor en Word requiere VBA

El comando integrado Insertar > Imágenes sí coloca una imagen en el cursor, pero no ofrece control programático. No puede insertar imágenes por lotes, imponer un ancho específico ni garantizar que la imagen permanezca en línea con el texto. Cuando necesita insertar muchas imágenes en un documento con un formato consistente —por ejemplo, fotos de productos en un catálogo o capturas de pantalla en un manual—, el método manual se vuelve lento y propenso a errores.

Las macros de VBA resuelven esto mediante el uso de la colección InlineShapes. Una forma en línea se comporta como un carácter de texto grande. Se sitúa en la misma línea que el texto circundante y se mueve cuando edita el texto. Esta es la forma más predecible de insertar una imagen en el cursor porque la imagen pasa a formar parte del párrafo. La macro también puede bloquear la relación de aspecto, establecer un ancho predeterminado e incluso filtrar los tipos de archivo para que solo se puedan seleccionar imágenes.

Antes de escribir la macro, asegúrese de que la configuración de seguridad permita ejecutar macros. Vaya a Archivo > Opciones > Centro de confianza > Configuración del Centro de confianza > Configuración de macros y seleccione Habilitar todas las macros. Para uso en producción, considere firmar la macro con un certificado digital.

Cómo escribir una macro de VBA para insertar una imagen en el cursor

La macro utiliza el objeto FileDialog para permitir que el usuario elija una imagen. Luego inserta esa imagen como una forma en línea en la selección actual. El código a continuación incluye manejo de errores para casos en los que el usuario cancela el cuadro de diálogo o selecciona un archivo que no es una imagen.

1. Abrir el Editor de VBA
   Presione Alt + F11 para abrir el Editor de Visual Basic. En el panel Proyecto, haga doble clic en Normal o en el nombre del documento donde desea almacenar la macro. Haga clic con el botón derecho en el módulo de destino y elija Insertar > Módulo para crear un nuevo módulo de código.
2. Nombrar la macro y declarar variables
   Copie y pegue el siguiente código en el módulo. El nombre de la macro es InsertImageAtCursor.

   Sub InsertImageAtCursor()
       Dim fd As FileDialog
       Dim filePath As String
       Dim img As InlineShape
       
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
       With fd
           .Title = "Select an image to insert"
           .Filters.Clear
           .Filters.Add "Images", "jpg;jpeg;png;gif;bmp;tiff"
           .AllowMultiSelect = False
           If .Show = -1 Then
               filePath = .SelectedItems(1)
           Else
               MsgBox "No image selected.", vbExclamation, "Cancelled"
               Exit Sub
           End If
       End With
       
       Set img = Selection.Range.InlineShapes.AddPicture( _
           FileName:=filePath, _
           LinkToFile:=False, _
           SaveWithDocument:=True)
       
       With img
           .LockAspectRatio = msoTrue
           .Width = InchesToPoints(3)
       End With
       
       Set fd = Nothing
       Set img = Nothing
   End Sub

3. Ejecutar la macro
   Cierre el Editor de VBA. Coloque el cursor en la ubicación exacta del documento donde desea la imagen. Presione Alt + F8, seleccione InsertImageAtCursor y haga clic en Ejecutar. Se abre un cuadro de diálogo de selección de archivos. Navegue hasta un archivo de imagen y haga clic en Insertar.
4. Verificar el resultado
   La imagen aparece en el cursor como una forma en línea. Está configurada con un ancho de 3 pulgadas y la relación de aspecto bloqueada. Puede cambiar el valor del ancho en la macro editando .Width = InchesToPoints(3) — reemplace 3 por cualquier número. La macro guarda la imagen dentro del documento para que no dependa de la ubicación del archivo original.

Alternativa: Insertar una imagen sin un cuadro de diálogo de archivo

Si siempre inserta la misma imagen, puede codificar la ruta del archivo de forma rígida. Reemplace el bloque del cuadro de diálogo de archivo con filePath = "C:\Users\YourName\Pictures\logo.png". Tenga en cuenta que las rutas codificadas de forma rígida se rompen si la imagen se mueve o la macro se ejecuta en otra computadora.

Alternativa: Insertar como una forma flotante

Para insertar la imagen como una forma flotante que se puede arrastrar libremente, use Selection.Range.Shapes.AddPicture en su lugar. Las formas flotantes no se anclan al cursor de la misma manera: se adjuntan al párrafo más cercano. Para una verdadera inserción en la posición del cursor, las formas en línea son más confiables.

Errores comunes al insertar imágenes con VBA

La imagen aparece en la parte superior del documento en lugar del cursor

Esto ocurre cuando usa ActiveDocument.InlineShapes.AddPicture sin especificar un Range. El rango predeterminado para una llamada a nivel de documento es el inicio del documento. Use siempre Selection.Range.InlineShapes.AddPicture para apuntar a la posición exacta del cursor.

La imagen está distorsionada o recortada

La distorsión ocurre cuando establece tanto .Width como .Height sin bloquear la relación de aspecto. La macro anterior establece .LockAspectRatio = msoTrue y solo cambia el ancho. La altura se ajusta automáticamente. Si debe establecer ambas dimensiones, calcule la proporción: .Height = .Width (originalHeight / originalWidth).

El cuadro de diálogo de archivo no muestra imágenes

La cadena de filtro en la macro incluye extensiones de imagen comunes. Si su imagen tiene una extensión inusual como .webp, agréguela al filtro: "jpg;jpeg;png;gif;bmp;tiff;webp". También puede eliminar todos los filtros para mostrar todos los archivos: .Filters.Clear sin agregar ningún filtro nuevo.

La macro no se ejecuta debido a la configuración de seguridad

Si Word bloquea la macro, abra el Centro de confianza y seleccione Habilitar todas las macros. Para un enfoque más seguro, guarde el documento como un archivo habilitado para macros (.docm) y firme digitalmente la macro. Las macros no firmadas de fuentes desconocidas se deshabilitan de forma predeterminada.

Inserción de imágenes en línea vs flotantes: Comparación

Elemento	Forma en línea (InlineShapes)	Forma flotante (Shapes)
Anclaje	En la posición exacta del cursor como un carácter de texto	Anclada al párrafo más cercano, no al cursor
Ajuste de texto	En línea con el texto — sin configuración de ajuste	El ajuste predeterminado es Cuadrado o Estrecho — se puede cambiar
Estabilidad de la posición	Se mueve con las ediciones de texto como un carácter	Permanece en una posición fija de la página a menos que establezca un posicionamiento relativo
Método de VBA	Selection.Range.InlineShapes.AddPicture	Selection.Range.Shapes.AddPicture
Caso de uso ideal	Insertar imágenes en una ubicación de texto específica para informes o manuales	Insertar logotipos o gráficos que deben permanecer en una esquina fija de la página

Después de insertar la imagen, puede convertir una forma en línea en una forma flotante haciendo clic con el botón derecho en la imagen, seleccionando Ajustar texto y eligiendo una opción que no sea en línea. Lo contrario no es posible: las formas flotantes no se pueden convertir en formas en línea a través de la interfaz de usuario.

Ahora puede insertar cualquier imagen en la posición exacta del cursor usando una macro de VBA que conserva la relación de aspecto y la portabilidad del archivo. Para ampliar esta macro, agregue un bucle para insertar varias imágenes desde una carpeta mediante llamadas a la función Dir. Para usuarios avanzados, combine esta macro con un formulario de usuario que le permita elegir el ancho de la imagen y el tipo de archivo antes de la inserción.