Excel - Macro para insertar imágenes solo cuando se incluya un código
Publicado por Manuel (1 intervención) el 26/02/2016 08:40:12
Hola a todos,
Tengo un problema con una macro que inserta imágenes indistintamente si en las celdas se han incluido códigos o no. La macro es la siguiente:
Lo que deseo es que la macro inserte imágenes SÓLO donde se incluya un código, dejando vacías las celdas sin códigos. Les agradeceré por su ayuda.
Tengo un problema con una macro que inserta imágenes indistintamente si en las celdas se han incluido códigos o no. La macro es la siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub insertarimagen()
'Por.DAM
On Error Resume Next
ruta = ActiveWorkbook.Path & "\"
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
imagen = Cells(i, "A")
Set img = ActiveSheet.Pictures.Insert(ruta & imagen)
With Cells(i, 2)
Arr = .Top
Izq = .Left
Anc = .Offset(0, 1).Left - .Left
Alt = .Offset(1, 0).Top - .Top
End With
With img
'.Name = numimg
.ShapeRange.LockAspectRatio = msoFalse
.Top = Arr
.Left = Izq
.Width = Anc
.Height = Alt
End With
Set img = NothingNext
End Sub
Lo que deseo es que la macro inserte imágenes SÓLO donde se incluya un código, dejando vacías las celdas sin códigos. Les agradeceré por su ayuda.
Valora esta pregunta
0