tag:blogger.com,1999:blog-4623278671508370136.post3769890438788089357..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: Cargar un gráfico en un Formulario de Excel.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger64125tag:blogger.com,1999:blog-4623278671508370136.post-6906277790526992452017-11-10T20:46:02.847+01:002017-11-10T20:46:02.847+01:00Excelente información! me sirvió muchísimo!Excelente información! me sirvió muchísimo!Anonymoushttps://www.blogger.com/profile/00170452564672207642noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-31324498098140026252017-11-06T09:29:14.703+01:002017-11-06T09:29:14.703+01:00Ummm
quizá sea tu configuración de equipo.
Echa un...Ummm<br />quizá sea tu configuración de equipo.<br />Echa un vistazo a<br />https://support.microsoft.com/es-es/help/983246/-type-mismatch-error-message-when-you-run-a-vba-macro-in-a-64-bit-vers<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-53064129751103524022017-11-06T04:10:28.194+01:002017-11-06T04:10:28.194+01:00gracias por contestar, si asi lo tengo nombrado, c...gracias por contestar, si asi lo tengo nombrado, crees que tega algún problema?, tu que me sugieres y tengo 8 mas userform solo cambian los nombres de cada gráfico . No se si pueda utilizar solo uno para ir visualizando en el mismo Userform, cerca de 10 graficas más, manipulado por varios botones, no se si me doy a entender.Anonymoushttps://www.blogger.com/profile/01132450847069651370noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-85961001635766577072017-11-04T10:40:39.662+01:002017-11-04T10:40:39.662+01:00Hola,
tienes nombrado el control de la imagen como...Hola,<br />tienes nombrado el control de la imagen como 'image1' ??<br />Lo demás parece correcto...<br />Revisa despacio lo expuesto en el post..<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-12299254064533193642017-11-04T06:58:42.414+01:002017-11-04T06:58:42.414+01:00Hola que tal, he estado revisando la respuestas, v...Hola que tal, he estado revisando la respuestas, validando varios codigos me funciona bien cuando lo utilizo por primera vez, pero cuando lo trato de abrir nuevamente o en otra compu, me sale el error 408, el de que no se puede cargar la imagen este es el codigo que utilizo. <br /><br />Private Sub UserForm_Initialize()<br />'seleccionamos el grafico,,,,,<br /> Set grafico1 = Sheets("CONHORNO").ChartObjects(1).Chart<br /><br />' guardamos el grafico como imagen jpg<br /> NombreGrafico = ThisWorkbook.Path & Application.PathSeparator & "HORNO3.JPG"<br /> grafico1.Export Filename:=NombreGrafico, FilterName:="JPG"<br /><br />' llamamos y mostramos el grafico guardado<br /> Image1.Picture = LoadPicture(NombreGrafico)<br />End Sub<br /><br /><br />gracias<br />Anonymoushttps://www.blogger.com/profile/01132450847069651370noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-36155126272469110212017-11-03T18:26:30.626+01:002017-11-03T18:26:30.626+01:00Hola,
¿has activado el control? y ¿has cambiado el...Hola,<br />¿has activado el control? y ¿has cambiado el nombre del gráfico??<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-20114728718162640722017-11-02T21:58:56.800+01:002017-11-02T21:58:56.800+01:00Hola ismael, estoy corriendo tu metodo, pero resul...Hola ismael, estoy corriendo tu metodo, pero resulta que me sale method or data member not found, y me subraya Image1, podrias ayudarme por favorMaNueLhttps://www.blogger.com/profile/15592858166220718465noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-30808951367171463172016-01-16T09:19:13.696+01:002016-01-16T09:19:13.696+01:00Hola Orlando,
si es posible trasladar un rango de ...Hola Orlando,<br />si es posible trasladar un rango de nuestra hoja de calculo a un UserForm, pero no tendría nunca la misma funcionalidad de selección que un ListBox.<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-77840523526780980922016-01-15T14:10:34.591+01:002016-01-15T14:10:34.591+01:00HOLA ISMAEL, SOY NUEVO EN LA CREACION DE MACROS DE...HOLA ISMAEL, SOY NUEVO EN LA CREACION DE MACROS DE EXCEL, MI PREGUNTA ES SI PUEDE CREAR UNA HOJA DE EXCEL EN UN USERFORM,PARA QUE APARESCA COMO UN LISBOXAnonymoushttps://www.blogger.com/profile/10113986547952564517noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-86322965134829882162015-11-20T08:58:37.406+01:002015-11-20T08:58:37.406+01:00Hola Francisco,
es la primera vez que escucho algo...Hola Francisco,<br />es la primera vez que escucho algo parecido...<br />Estamos hablando de ficheros nuevos abiertos por ti?.. lo digo por que a veces en ficheros de terceros se protege el proyecto de VBA con contraseñas y aparece un mensaje similar<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-88806812647776582372015-11-20T00:01:22.768+01:002015-11-20T00:01:22.768+01:00Estimado amigo.
Espero que puedas ayudarme.
Quizás...Estimado amigo.<br />Espero que puedas ayudarme.<br />Quizás mi problema sea sencillo, pero por más vueltas que doy no consigo resolverlo y me urge muchísimo.<br />Cuando entro en visual basic e inserto un userform, al pinchar sobre cualquier control y tratar de ponerlo en el formulario me da el mensaje "Acceso denegado".<br />No había intentado hacer formularios hasta ahora pero (tengo la versión 2007 por cierto) en la hoja normal de datos, en "programador" y "Diseño" me inserta controles activex y controles de formulario perfectamente.<br />Te agradezco de antemano tu ayuda.Anonymoushttps://www.blogger.com/profile/02596367919698802178noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-70981238498910766252015-11-02T16:06:40.346+01:002015-11-02T16:06:40.346+01:00Puedes cambiar las propiedades del Alto y Ancho de...Puedes cambiar las propiedades del Alto y Ancho de la Imagen, y adapatarlas a tamaño del cuadro de imagen de tu userForm.<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-22300138001981791432015-11-02T14:23:12.976+01:002015-11-02T14:23:12.976+01:00Hola Ismael:
Muchas gracias por la ayuda, ya me s...Hola Ismael:<br /><br />Muchas gracias por la ayuda, ya me salió el gráfico que quería. Ahora tengo una duda, El gráfico se sale del cuadro de figura que creé en el UserForm. El cuadro de imágen tiene un tamaño de 198x300. Pero el gráfico que me sale tiene un tamaño mucho mayor y se sale, ¿Qué puedo hacer para que quede dentro del cuadro?<br /><br />Gracias por la ayuda.Anonymoushttps://www.blogger.com/profile/00680462569643213151noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-52965742410115610032015-11-02T08:52:12.150+01:002015-11-02T08:52:12.150+01:00Hola José Luís,
fíjate que en el caso expuesto en ...Hola José Luís,<br />fíjate que en el caso expuesto en el blog estamos subiendo un gráfico con nombre '1 Gráfico' al formulario...<br />si tu quieres llevar una imagen tendrás que fijarte cómo se llama la imagen en tu hoja de cálculo.. bastará te situés encima de la imagen y la selecciones para ver en el cuadro de nombres cómo se llama dicha imagen.<br />Cunado tengas claro este nombre lo podrás usar y reemplazar en el ejemplo<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-77423807910002894652015-10-31T23:14:32.341+01:002015-10-31T23:14:32.341+01:00Hola:
Estoy trabajando unos macros en Excel para ...Hola:<br /><br />Estoy trabajando unos macros en Excel para mostrar una figura que tengo en una pestaña llamada "Señal de Falla".<br /><br />Copio y Pego el código que pusiste con unas variaciones:<br />-La pestaña se llama "Señal de Falla"<br />-El Userform se llama "UserFormSimulador"<br />-El lugar de la imágen es "Image7"<br /><br />Entonces pongo el código como te lo envío<br /><br />'indicamos qué gráfico vamos a insertar como imagen en el Formulario<br /> Set graficoactivo = Worksheets("Señal de Falla").ChartObjects(1).Chart<br /> 'damos nombre al archivo GIF donde exportaremos el gráfico<br /> CorrienteFalla = ThisWorkbook.Path & "\temporal.gif"<br /> <br /> 'redimensionamos el Alto y Ancho del objeto Imagen<br /> '(del recuadro donde insertamos el gráfico)<br /> alto = Worksheets("Señal de Falla").Shapes("1 Gráfico").Height<br /> ancho = Worksheets("Señal de Falla").Shapes("1 Gráfico").Width<br /> UserFormSimulador.Image7.Height = alto<br /> UserFormSimulador.Image7.Width = ancho<br /> Base = UserFormSimulador.Width<br /> altura = UserFormSimulador.Height<br /> <br /> UserFormSimulador.Image7.Top = (altura - alto) / 2<br /> UserFormSimulador.Image7.Left = (Base - ancho) / 2<br /> <br /> 'Exportamos el gráfico al archivo GIF generado<br /> graficoactivo.Export Filename:=CorrienteFalla, FilterName:="GIF"<br /> <br /> 'Colocamos la imagen Gif en el espacio destinado del Formulario<br /> UserFormSimulador.Image7.Picture = LoadPicture(CorrienteFalla)<br /><br />Pero al correrlo, me dice que no encuentra el elemento con el nombre especificado en la línea:<br />alto = Worksheets("Señal de Falla").Shapes("1 Gráfico").Height<br /><br />Quisiera saber si me falta hacer algo o si el código está mal.<br /><br />Gracias por la ayudaAnonymoushttps://www.blogger.com/profile/00680462569643213151noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-7519687136119138722015-08-01T10:01:31.159+02:002015-08-01T10:01:31.159+02:00Hola,
todo dependerá de lo que contenga ese rango....Hola,<br />todo dependerá de lo que contenga ese rango...<br />si son datos puedes cargarlo en un listbox, por ejemplo.<br />Si tal como indicas quieres cargarlo como imagen el problema pasa en primer lugar <b>por copiar y pegar el rango en cuestión como imagen</b>, para luego realizar la carga en el Userform, algo así:<br /><br />UserForm1.Image.Picture = LoadPicture (Worksheets("Hoja1").Shapes("Objeto 1")) <br /><br />siendo Objeto1 el nombre de la imagen obtenida a partir del rango..<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-40417590214156529572015-07-31T17:10:11.094+02:002015-07-31T17:10:11.094+02:00Estimado Ismael es un gusto poder dirifirme a uste...Estimado Ismael es un gusto poder dirifirme a usted a través de este medio quisiera por favor solicitarle ayuda ya que no he podido lograr superar un inconveniente con respecto a este mismo tema lo que yo quisiera es copiar un rango de celdas como imagen y que a su vez esta imagen sea cargada en un control image en el formulario no se si sea esto posible por favor de tener usted algun aporte muchas gracias..<br /><br />Saludos<br />Christian AraujoAnonymoushttps://www.blogger.com/profile/01287101048270335624noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-34010746829667588622015-05-29T08:36:23.800+02:002015-05-29T08:36:23.800+02:00Hola Ariel,
asegúrate que haces clic derecho sobre...Hola Ariel,<br />asegúrate que haces clic derecho sobre la ventana de 'Cuadro de herramientas'.<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-65220199969893550152015-05-28T23:17:59.449+02:002015-05-28T23:17:59.449+02:00Yo también, tengo el mismo problema, accedo al men...Yo también, tengo el mismo problema, accedo al menú herramientas, clickeo en controles adicionales, y no me aparece nada aun!!, que puedo hacer???Arielhttps://www.blogger.com/profile/13154032918404184096noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-7108897754640740262014-11-25T09:00:10.651+01:002014-11-25T09:00:10.651+01:00Hola Esther,
normalmente (no siempre) el error 70 ...Hola Esther,<br />normalmente (no siempre) el error 70 se produce cuando se emplea una variable (con el mismo nombre) en diferentes lugares de nuestros procedimientos...<br />revisa esta posibilidad, y tómate como norma ir limpiando las variables objeto una vez las hayas empleados (Set vble=Nothing); por supuesto no emplees mismo nombres para llamar a Sub's y Function's.<br /><br />En tu caso, si tienes varios Userform busca primero en los eventos <b>Initialize</b> ve paso a paso siguiendo el código hasta Depurar la línea que causa el error (presionando F8)..<br /><br />como te digo estas son algunas de las causas.. pero no las únicas.<br />Intenta depurar y ver en qué linea se genera el error.<br /><br />Las Referencias son librerias con contenido de programación, paquetes de código que se pueden descargar e instalar...<br />Un saludoExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-25848650489382943412014-11-24T19:37:45.785+01:002014-11-24T19:37:45.785+01:00Excelforo Ismael Romero:
Estoy haciendo una caden...Excelforo Ismael Romero:<br />Estoy haciendo una cadena de formularios para capturar datos de pesquerias. DE hecho ya estaba por terminarlo, deje al final el ingresar un código en un textbox para validar el formato de fecha, me indica el mismo tipo de error (70: permiso denegado). Al principio de la rutina tenia la orden : <br /><br /> On Error Resume Next <br /> <br />pensando que eso le "estorbaba" se lo comente, y nada el error continua, pero ahora no me deja correr ninguno del resto de los formularios, es como si me hubiera cambiado los atributos... que puede estar pasando??? Podrias darme una sugerencia porfis!! Que son las Referencias descargadas??<br />Gracias <br />Esther Cruzhttps://www.blogger.com/profile/06070669689337719975noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-62147478919675354322014-04-15T09:24:36.039+02:002014-04-15T09:24:36.039+02:00;-)
me alegro te haya sido de utilidad
Saludos;-)<br />me alegro te haya sido de utilidad<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-7787000424843536132014-04-14T06:17:45.118+02:002014-04-14T06:17:45.118+02:00Eres lo máximo!! tu blog me ha ayudado demasiado !...Eres lo máximo!! tu blog me ha ayudado demasiado !! Gracias!!Diego Agudelo.https://www.blogger.com/profile/11043780457424945516noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-12978139171787645822014-04-04T09:01:10.344+02:002014-04-04T09:01:10.344+02:00Hola OJ Marsi,
el gráfico a exportar primero y lue...Hola OJ Marsi,<br />el gráfico a exportar primero y luego importar dentro de un UserForm se indica en la línea 3 del código:<br /><br />'indicamos qué gráfico vamos a insertar como imagen en el Formulario<br />Set graficoactivo = Sheets(1).ChartObjects(1).Chart<br /><br />pero se identifica el OBJETO no el rango donde se encuentra!!<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-45811118555948198292014-04-04T06:06:54.798+02:002014-04-04T06:06:54.798+02:00Para ser mas claro... En que momento se le dijo al...Para ser mas claro... En que momento se le dijo al userform, grafica por ejemplo "B1:H1"<br /><br />Gracias otra vezAnonymoushttps://www.blogger.com/profile/00941873725496979621noreply@blogger.com