Como convertir un codigo en una macro
Publicado por Oscar (1 intervención) el 11/10/2015 22:07:36
Necesito una ayuda, con un codigo que funciona en una hoja de excel pero yo lo quiero convertir en una macro.
Si alguien me puede ayudar diciendome que debo sacar del codigo y si tengo que agragar algo para transformarlo en una macro.
Les dejo el codigo y espero me puedan ayudar
Desde ya, gracias
Si alguien me puede ayudar diciendome que debo sacar del codigo y si tengo que agragar algo para transformarlo en una macro.
Les dejo el codigo y espero me puedan ayudar
Desde ya, gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iLaImagen As Shape
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
'buscamos en las imagenes de la hoja ShtImagenes y si conseguimos
'una con el nombre, la copiamos
For Each iLaImagen In shtImagenes.ShapesIf iLaImagen.Name = Target.Value Then
iLaImagen.CopyActiveSheet.PasteSelection.Top = Target.Top
Selection.Left = Target.Left
'con esta parte se pudiera ajustar la imagen al alto y ancho de la celda
'la imagen debe tener desmarcada la opción "bloquear relación de aspecto" para
'que se pueda ajustar completamente a la celda
Selection.Width = Target.Width
Selection.Height = Target.Height
'limpiamos la celda y nos posicionamos en la celda siguiente
Target.Value = ""
Target.Offset(1, 0).Select
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
Valora esta pregunta
0
