INSERTAR IMAGENES MEDIANTE MACROS EN EXCEL

Sub INGRESAR_FOTO1()
'
' INGRESAR_FOTO Macro
'
'
Dim AUTODESK As String
AUTODESK = ActiveSheet.Range("K3").Value
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.PresetTextured msoTexturePapyrus
.TextureTile = msoTrue
.TextureOffsetX = 0
.TextureOffsetY = 0
.TextureHorizontalScale = 1
.TextureVerticalScale = 1
.TextureAlignment = msoTextureTopLeft
End With
With Selection.ShapeRange.Fill
.Visible = msoTrue
.UserPicture "C:\Users\grove\OneDrive\Escritorio\IMAGENES\LOGOS\" & AUTODESK & ".jpg"
.TextureTile = msoFalse
End With
Application.CommandBars("Format Object").Visible = False
End Sub