Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Covertir en Imagen JPG una imagen con texto en Execll

30 views
Skip to first unread message

cap| i |cua

unread,
Dec 11, 2009, 2:09:24 PM12/11/09
to
Me gustar�a saber c�mo puedo hacer que la imagen insertada en un Excell con
un texto en Word Art convertirlo en imagen JPG, caso de no poderse hacer si
hay alg�n sistema con PowerPoint para poner en una imagen un texto de
felicitaci�n navide�a. Gracias por vuestro tiempo y sabidurimagen

--
saludos
cap| i |cua


H�ctor Miguel

unread,
Dec 11, 2009, 7:57:05 PM12/11/09
to
hola (...), ?????

> ... como... hacer que la imagen insertada en un Excell con un texto en Word Art convertirlo en imagen JPG
> caso de no poderse hacer si hay algun sistema con PowerPoint para poner en una imagen un texto de felicitaci�n navidena...

puedes probar haciendo una copia-imagen de un rango
(previamente puedes modificar la configuracion de pagina, lineas, encabezados, etc.)
y luego... la pegas en algun objeto como imagen ?...
o la grabas como archivo de imagen (pasando por un objeto chart) ?
o... ??? (hay varias opciones mas para copiar como imagen objetos de las aplicaciones)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

ejemplo para exportar un grupo de celdas a una imagen con formato GIF o JPG?
suponiendo que deseas copiar el rango [B6:D16] de la hoja activa

=== en un modulo de codigo 'normal' ===
Sub CopiarUnRangoAGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
With Range("b6:d16")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export "c:\ruta y\sub carpeta para\tu archivo.gif"
.Delete
End With
Application.DisplayAlerts = True
End Sub


cap| i |cua

unread,
Dec 12, 2009, 7:06:09 AM12/12/09
to
Gracias H�ctor Miguel por tus indicaciones, (Tengo el Office 2007, no me
acorde de decirlo) y cuando voy a la p�gina de Excell , observo lo que tu me
dices de [l�nea y encabezados] tengo tildados *ver* pero si nnoi me equivoco
eso es para imprimir, yo lo que deseo es que la foto que previamente he
subido mnediante *insertar imagenes* le he puesto mun texto con el *WordArt*
y es la imagen que me da Excell con los textos 'incrustados con sus colores'
lo que quisiera hacer una copia para tenerla en JPGE y poderla enviar po
correo om subirla como imagen en Facebook o en un blog

No conozco eso de 'objeto Chart' bi grabar como 'archivo de imagen' ni
'copia-imagen de un rango'
Lo siento pero es la primera vez que se me plantea esta cuesti�n
Muy agradecido por tu ayuda y por tu tiempo

--
saludos
cap| i |cua


"H�ctor Miguel" <NOhemio...@PLShotmail.com> escribi� en el mensaje
news:uZUrIYse...@TK2MSFTNGP06.phx.gbl...

Giovanni

unread,
Dec 12, 2009, 9:04:15 AM12/12/09
to
Hola,
Con Power point es sencillo, pegas la imagen, le pones el texto wordart y
a la hora de guardar le das a "guardar como" y eliges archivo jpg.
Un saludo


H�ctor Miguel

unread,
Dec 12, 2009, 12:55:23 PM12/12/09
to
hola (...), ?????

> (Tengo el Office 2007, no me acorde de decirlo) y... observo lo que tu me dices de [l�nea y encabezados]


> tengo tildados *ver* pero si nnoi me equivoco eso es para imprimir

> yo lo que deseo es que la foto que previamente he subido mnediante *insertar imagenes*
> le he puesto mun texto con el *WordArt* y es la imagen que me da Excell con los textos 'incrustados con sus colores'
> lo que quisiera hacer una copia para tenerla en JPGE y poderla enviar po correo om subirla como imagen en Facebook o en un blog
>
> No conozco eso de 'objeto Chart' bi grabar como 'archivo de imagen' ni 'copia-imagen de un rango'

> Lo siento pero es la primera vez que se me plantea esta cuestion


> Muy agradecido por tu ayuda y por tu tiempo

tienes (al menos) tres opciones:

1) probar con la sugerencia que te hace Giovanni

2) probar con la sugerencia de mi propuesta anterior
(te aseguro que la macro funciona tanto para *.gif como para *.jpg)

3) instalar un complemento de Andy J. Pope -> Graphics Exporter <-
desde: http://www.andypope.info/vba/gex.htm
(por si tienes varias imagenes y no quieres mucha "danza" entre aplicaciones)

saludos,
hector.


marcos...@gmail.com

unread,
Jul 7, 2014, 7:51:03 PM7/7/14
to
Gracias man, me fue de mucha ayuda... ahora yo queria guardar la imagen con el nombre que está el la celda A1 ejemplo: "10_bkp", sabes como se lo hace?
De antemano muchas gracias!!
0 new messages