Foro Excel

Desearia saber si se puede guardar una factura como foto o dibujo y asignarle un nombre para asi ahorrar el tener que guardar miles de papeles.




salu2

Hola IWOLLS

Entiendo que lo que quieres es guardar un rango de celdas como imagen gráfica, si es así­ el fihero que te adjunto podrí­a valerte.
Es un fichero creado por Ivan F Moala que en su momento modifiqué ligeramente para adaptarlo a lo que yo necesitaba.

Un saludo desde Vitoria

muy bueno,diria yo que utiliza el mismo principio basico que utilice (adapte ) para cargar un "Word Art" en un form.[mediante codigo,ya que se puede hacer manualmente de una forma facil]

esto lo habia conseguido algunas semanas atras en otro foro ,a peticion de Ansaval. y tenia pensado hacerlo con un rango de celdas,asi que me ahorraste algunos cuantos teclazos

Muchas gracias por vuestra ayuda, es mas o menos lo que necesitaba. Me ha sido de mucha utilidad.


Salu2

Hola ... !!!

no he visto los demas aportes de los compañeros pero esto se adapta a tu necesidad, solo ejecuta manualmente el segundo formulario del archivo, igual lo puedes adaptar para llamarlo desde un boton de comando.

Saludos

http://mx.geocities.com/gozalo_ya/GraphicsExporter.zip

DOS PUNTUALIZACIONES.

La macro de "ioyama" me sirve bien, pero cada vez que ejecutas las macro y salvas el archivo este aumenta de tamaño. ¿Porque?


El vinculo de opermity da error, podrias colgar el archivo en lugar de poner el vinculo?.


gracias a todos

Salu2

IWOLLS:
pienso que tal vez mi ejemplo te venga bien para el caso que ocupas,solo tendras que hacerle algunos ajustes ,ya que como comente en mi 1ª intervencion,el ejemplo exporta un gif y luego lo importa para cargarse en el Formulario.
tu tendrias que obviar estos ultimos pasos y solo quedarte con la generacion del archivo gif ;-D

Upsss,casi aseguraria haber subido mi propuesta ???????????
quien sabe que habra pasado ?????????
tal vez sobrepase la cantidad de archivos(megas) a subir en este estupendo sitio????

en fin ahi voy otra vez.....

Ahhhhhh ahi esta ya lo vi !!!!!!!!!!!!!!
no entiendo nada ?????????

bueno pido 1000 disculpas por subir y subir ejemplos

Muchas gracias por vuestros aportes. Lo consegui hacer con la siguiente macro:

Sub FACTURA_GIF()

Dim FName As String
Dim Temporary_Worksheet As Worksheet
Dim Temporary_Chart As Chart
Dim Temporary_Picture As Picture
Dim FECHAESPEC As Date

Set Temporary_Worksheet = Worksheets.Add
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:=Temporary_Worksheet.Name
Set Temporary_Chart = ActiveChart

ThisWorkbook.Sheets(HOJA).Range("A1:R62").CopyPicture Appearance:=xlScreen, Format:=xlBitmap 'xlPicture
Temporary_Chart.Paste
Set Temporary_Picture = Selection


With Temporary_Chart.Parent
.Width = Temporary_Picture.Width + 7
.Height = Temporary_Picture.Height + 7
End With

N_FACTURA = Sheets("basedat").Range("B1").Value

FName = "L:\HISTORICO\" & N_FACTURA & ".gif"

Temporary_Chart.Export filename:=FName, FilterName:="gif"

Application.DisplayAlerts = False
Temporary_Worksheet.Delete
Application.DisplayAlerts = True

End Sub

ioyama,

El aporte es buení­simo. Pero qué debo cambiar para que no pida el rango si no que trabaje con el que está definido previamente?. Todo lo demás que quede idéntico.
Giovanni

ioyama,
La definición previa de la que hablo es variable. Por eso pido que lo demás quede tal cual.

Previamente muy agradecido
Giovanni

Hola gfuentes

Perdona por no contestar a tu anterior post, no me percaté que solicitabas algo en el mismo.

En el adjunto te he modificado el fichero para que el rango capturado sea siempre el mismo (creo que es lo que querí­as), lo único que debes hacer es modificar la lí­nea de código donde aparece el rango para que se adapte a tus necesidades.

Un saludo desde Vitoria