1
clic en el botón "Inicio" de Windows y, a continuación, haga clic en
2
Escriba el siguiente código en la ventana abierta "Visual Basic para Aplicaciones . ":
Sub PictureIntoComment ()
' www.contextures.com \\ xlcomments03.html
ch As ChartObject
dancho Dim As
doble < p> dalto Dim As Double
ws As Hoja
sName dévil como secuencia
cmt As comentario
sPath As
secuencia < p> sFile dévil como secuencia
rng As Range
Set ws = ActiveSheet
Set rng = ActiveCell
sPath = ThisWorkbook.Path & " \\ "
sName = InputBox (" Nombre de archivo de imagen (sin extensión) " , " Archivo
Name " )
Si sName =" "Then sName =" Picture_ " y formato (fecha , "AAAAMMDD " )
sFile = sPath y sName & ". gif"
dancho = Selection.Width
dalto = Selection.Height
Selection.Cut
Set ch = ws.ChartObjects.Add (Izquierda: = rng.Left , Top : = rng.Top , _
Ancho: = dancho , Altura: = dalto )
ch.Chart.Paste
rng.Activate
ch.Chart.Export sFile
ch.Delete
Set cmt = rng.AddComment
Texto cmt.Text : . . = ""
cmt.Shape
Fill.UserPicture sFile
Ancho = dancho
. Altura = dalto
extremo con
End Sub
3
Haga clic en " Guardar". Elija un nombre para la secuencia de comandos VBS y , a continuación, haga clic en el botón " OK" para insertar sus imágenes en el archivo VBS .