tag:blogger.com,1999:blog-4623278671508370136.post620865256858576348..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: Exportar una imagen desde Excel.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger19125tag:blogger.com,1999:blog-4623278671508370136.post-73267021223647474032018-06-01T08:42:29.657+02:002018-06-01T08:42:29.657+02:00Hola roberto,
si sabes el nombre del gráfico, pued...Hola roberto,<br />si sabes el nombre del gráfico, puedes emplearlo<br /><br />.ChartObjects("NombreGafico")...<br /><br />no hace falta emplear el índice de ese gráfico<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-78367096274365535762018-06-01T00:34:56.666+02:002018-06-01T00:34:56.666+02:00Hola, me funciona perfecto con mi WinXP y Off2007,...Hola, me funciona perfecto con mi WinXP y Off2007, pero siempre exporta con el (1) y lo he cambiado al nombre de la imagen que SOLO QUIERO exportar (tengo varias imagenes en mi sheet). Hay algun ajuste? (Las imagenes ya tienen nombre....)<br />Marcelohttps://www.blogger.com/profile/00130237137768158159noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-62040574441985383192017-04-18T19:40:00.084+02:002017-04-18T19:40:00.084+02:00gracias Ismael... si logro solucionarlo con gusto ...gracias Ismael... si logro solucionarlo con gusto lo comparto. Un saludo!Anonymoushttps://www.blogger.com/profile/15696115961413853204noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-64463845130613659472017-04-18T17:37:51.279+02:002017-04-18T17:37:51.279+02:00Hola Eduardo,
no podría decirte la incompatibilida...Hola Eduardo,<br />no podría decirte la incompatibilidad con W10...<br />quizá alguna actualización, alguna librería afectó algo del paquete office (pasa más a menudo de lo que nos gustaría)...<br />De hecho, yo personalmente sigo empleando W7, después de ver todos los problemas que generaba la última versión de Windows.<br /><br />A priori no se ve nada raro en el código que adjuntas...<br />Si acaso <b>revisa la ruta de la exportación</b><br /><br />Siento no poder decirte nada más<br />Un saludo y suerte (comparte si consigues solucionarlo)Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-76067335891573319022017-04-17T22:35:36.399+02:002017-04-17T22:35:36.399+02:00perdon, ahora con el windows 10 es el problema**perdon, ahora con el windows 10 es el problema**Anonymoushttps://www.blogger.com/profile/15696115961413853204noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-79018392788515078122017-04-17T22:34:56.484+02:002017-04-17T22:34:56.484+02:00Estimado Ismael, el siguiente codigo me servía a l...Estimado Ismael, el siguiente codigo me servía a la perfección hasta windows 7, ahora con el windows vista la imagen que se exporta va en blanco<br /><br />de antemano gracias<br /><br />Sub exportar()<br />Sheets("tablero").Select<br />Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single<br />Application.DisplayAlerts = False<br />With Range("a1:y45")<br />Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture<br />End With<br />With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)<br />.Chart.Paste<br />.Chart.Export "\\**ruta**\imagen1.png"<br />.Delete<br />End With<br />Application.DisplayAlerts = True<br />End SubAnonymoushttps://www.blogger.com/profile/15696115961413853204noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-15431927657638781292016-09-30T14:16:33.968+02:002016-09-30T14:16:33.968+02:00Creo que es de esta forma:
Donde aparece nombreim...Creo que es de esta forma:<br /><br />Donde aparece nombreimg = img.Name<br />Reemplazar por nombreimg = img.TopLeftCell.Offset(, 1)<br /><br />Saludos!!!Anonymoushttps://www.blogger.com/profile/15156863289450630459noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-91304294372827859282016-09-30T09:20:13.051+02:002016-09-30T09:20:13.051+02:00Hola,
la idea la tienes en este mismo post...
Empl...Hola,<br />la idea la tienes en este mismo post...<br />Emplea para cada imagen (usa un loop del tipo FOR...NEXT):<br /><b>.Export Filename:="C:\" & nombreimg & ".gif"</b><br />y por la variable 'nombreimg' toma el nombre del objeto imagen sobre el que estar operando<br /><br />Espero haberte orientado<br />Saludos<br />Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-34478709461695883742016-09-29T18:16:10.000+02:002016-09-29T18:16:10.000+02:00Hola Amigos!!
Como puedo hacer para que cada imag...Hola Amigos!!<br /><br />Como puedo hacer para que cada imagen se guarde con la celda adyacente?<br />Por ejemplo, tengo imágenes desde A2 hacia abajo y necesito guardar cada imagen con el nombre de esa imagen<br />que se encuentra en B2 respectivamente.<br /><br />Por favor!!!Anonymoushttps://www.blogger.com/profile/15156863289450630459noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-22314887388497287652015-09-12T10:58:07.539+02:002015-09-12T10:58:07.539+02:00;-)
gracias!;-)<br />gracias!Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-81661479759133466952015-09-11T09:08:43.321+02:002015-09-11T09:08:43.321+02:00Hermano... pues felicitaciones, no sabes cuanto t...Hermano... pues felicitaciones, no sabes cuanto tiempo llevaba buscando esto... Es ud un señor ninja. jajjajajaa. Gracias milesAnonymoushttps://www.blogger.com/profile/05264173083452273293noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-67229112231579683162014-06-27T09:05:39.348+02:002014-06-27T09:05:39.348+02:00Hola Racudu,
asegúrate existe la hoja y un gráfico...Hola Racudu,<br />asegúrate existe la hoja y un gráfico en ella...<br />Este es un código muy simple que no necesita nada, excepto insertar el procedimiento en el proyecto de VBA.<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-1632853211855579072014-06-26T23:11:47.799+02:002014-06-26T23:11:47.799+02:00Buen días tengo un problema, al correr la macro me...Buen días tengo un problema, al correr la macro me sale error 70 permiso denegado. ¿Que debo hacer? Gracias de antemano =) Jorge De Britohttps://www.blogger.com/profile/05320987601124458811noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-8940177587988440852014-02-27T22:12:20.367+01:002014-02-27T22:12:20.367+01:00Hola Daniel,
pues sólo conozco esta forma de expor...Hola Daniel,<br />pues sólo conozco esta forma de exportar imágenes desde Excel... hasta donde yo sé, no existe una manera de hacerlo directamente.<br /><br />Lo siento.<br /><br />Un cordial saludo y suerte!!Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-68515534876353982032014-02-27T20:33:05.089+01:002014-02-27T20:33:05.089+01:00hola que tal, tengo un problema donde mi aplicació...hola que tal, tengo un problema donde mi aplicación tiene una imagen en la pantalla de inicio donde esta imagen se cambia por un usuario cuando lo desee, esta aplicación la pienso pasar a varias personas el problema es que la imagen la guardo en una hoja de excel como la puedo tomar de ahí para mostrarla en un control image.<br /><br />Viendo este blog se me ocurrio este metodo donde se exporta la imagen y la cargo en el image control, pero tengo un proble de como exportar un objeto imagen?<br /><br />saludos <br />Anonymoushttps://www.blogger.com/profile/04525952621127679958noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-28579314117404755062013-10-02T09:23:30.328+02:002013-10-02T09:23:30.328+02:00;-)
Slds!!;-)<br />Slds!!Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-16795710411031776362013-10-01T20:59:37.302+02:002013-10-01T20:59:37.302+02:00Excelente, funciona perfecto. GraciasExcelente, funciona perfecto. GraciasAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-16911935643644692022013-09-25T22:07:37.471+02:002013-09-25T22:07:37.471+02:00Gracias!!
;-)Gracias!!<br />;-)Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-21525405309414477332013-09-25T13:19:12.354+02:002013-09-25T13:19:12.354+02:00Muy ingenioso, funciona bien. Gracias por comparti...Muy ingenioso, funciona bien. Gracias por compartirlo!Anonymousnoreply@blogger.com