Tengo más de 1700 registros de títulos de libros en un archivo de Excel. Cada uno de estos más de 1700 registros tiene una imagen de portada a la que se hace referencia, y esas imágenes de portada reciben el nombre de parte del número ISBN del título (como 3-539-4.jpg). Todas estas imágenes de portada deben compararse visualmente con sus registros de título para determinar una coincidencia adecuada.
Lo que se me ocurrió como proceso es tener la URL local en una columna al lado de la columna del título. Al hacer clic en cada URL, se abrirá la imagen en mi aplicación de vista previa para que se pueda verificar que el título de la imagen de portada coincide con el título de la celda adyacente. Tengo las URL locales en la columna, pero necesito un atajo para activarlas todas, en lugar de configurar cada una individualmente en la función Insertar hipervínculo (lo que tomaría aproximadamente 1,5 veces).
¿Existe alguna macro o módulo VBA que pueda usar para que esto suceda en toda la columna de URL?
A continuación se muestra una imagen de lo que comencé, mostrando la primera activa.
Respuesta1
For each myCell in Range("A1:A1700")
ActiveSheet.Hyperlinks.Add myCell, Address:=MyCell.Value
Next myCell
Ajuste el rango real en el que se encuentran sus enlaces.
También debe tener en cuenta que no hay validación en el enlace, por lo que una celda que contenga "Texto aleatorio" se vinculará a "Texto aleatorio", sea o no un enlace válido.