¿Cómo agregar una imagen en Word desde una ruta usando VBA?

Para insertar una imagen en un documento de Word utilizando VBA, puedes utilizar el objeto `InlineShapes` para insertar la imagen desde una ruta específica. Aquí tienes un ejemplo de cómo hacerlo:

   Sub InsertarImagenDesdeRuta()
       Dim rutaImagen As String
       Dim rango As Range
       
       ' Establece la ruta de la imagen que deseas insertar
       rutaImagen = "C:rutaatuimagen.jpg"
       
       ' Establece el rango donde deseas insertar la imagen
       ' Por defecto, se usará al final del documento
       Set rango = ActiveDocument.Range(ActiveDocument.Content.End - 1)
       
       ' Inserta la imagen en el documento
       ActiveDocument.InlineShapes.AddPicture FileName:=rutaImagen, _
           LinkToFile:=False, SaveWithDocument:=True, Range:=rango
   End Sub

Abre el documento de Word donde deseas insertar la imagen.
Presiona `Alt + F11` para abrir el editor de Visual Basic for Applications (VBA).
En el editor de VBA, ve a `Insertar` > `Módulo` para crear un nuevo módulo.
Copia y pega el siguiente código en el módulo:
Asegúrate de modificar `»C:rutaatuimagen.jpg»` para que coincida con la ruta completa de tu imagen.
Cierra el editor de VBA y regresa a tu documento de Word.
Ejecuta la macro presionando `Alt + F8`, selecciona `InsertarImagenDesdeRuta` de la lista y haz clic en `Ejecutar`.

Este código inserta la imagen al final del documento. Puedes ajustar el rango para colocar la imagen en una ubicación específica dentro del documento si lo deseas. También puedes cambiar los parámetros según sea necesario, por ejemplo, ajustando la posición o el tamaño después de la inserción.