Que linea agregar a mi codigo de loop...
Publicado por Gabriel Marquez (3 intervenciones) el 12/10/2019 16:11:52
Buen dia amigos del foro, utilizo el siguinte codigo vba para insertar automaticamente imagenes en celdas especificas de una matrix de datos...
En terminos generales el codigo lee el nombre de un imagen en una columna, busca en una carpeta especifica en la ubicacion de del archivo y la coloca en la celda contigua. La pregunta es simple, que linea debo incetar antes del LOOP para que en caso de que no exista imangen disponible en la carpeta, seleccione una imagen predefinina y la ponga en su lugar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If Not Intersect(Target, Range("B1")) Is Nothing Then
On Error Resume Next
For Each shp In ActiveSheet.Shapes shp.DeleteNext shp
ActiveSheet.Range("E4").Select
Do While ActiveCell.Offset(0, -1).Value <> Empty
Set RangoImagen = ActiveCell.Offset(0, -1)
ActiveSheet.Pictures.Insert (RutaActual & "/CARPETAX/" & RangoImagen.Value & ".jpg")
ActiveCell.Offset(1, 0).Select
Loop
Range("B4").Select
On Error GoTo 0
Exit Sub
End If
En terminos generales el codigo lee el nombre de un imagen en una columna, busca en una carpeta especifica en la ubicacion de del archivo y la coloca en la celda contigua. La pregunta es simple, que linea debo incetar antes del LOOP para que en caso de que no exista imangen disponible en la carpeta, seleccione una imagen predefinina y la ponga en su lugar.
Valora esta pregunta
0
