tag:blogger.com,1999:blog-4623278671508370136.post385475931072302023..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: El método Shapes.AddPicture para incorporar imágenes en Excel.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger35125tag:blogger.com,1999:blog-4623278671508370136.post-39662352927343886062018-11-09T11:30:48.833+01:002018-11-09T11:30:48.833+01:00Hola Ivan
solo tienes que leer este mismo post, do...Hola Ivan<br />solo tienes que leer este mismo post, donde se indica la instrucción a emplear..<br />en lugar de <br />ActiveSheet.Pictures.Insert<br />usa<br />ActiveSheet.Shapes.AddPicture<br /><br />saludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-47439822884235494912018-11-08T21:48:22.527+01:002018-11-08T21:48:22.527+01:00Alguienpodria ayudarme para adecuar este codigo a ...Alguienpodria ayudarme para adecuar este codigo a manera de quitar el vinculo y dejarlas como imagenes guardadas en el archivo<br /><br /><br />Sub Imágenes()<br />Dim RutaActual As String<br />Dim RangoImagen As Range<br />Dim shp As Object<br />On Error Resume Next<br />For Each shp In ActiveSheet.Shapes<br /> shp.Delete<br />Next shp<br />RutaActual = ThisWorkbook.Path<br />ActiveSheet.Range("B2").Select<br />Do While ActiveCell.Offset(0, -1).Value <> Empty<br /> Set RangoImagen = ActiveCell.Offset(0, -1)<br /> ActiveSheet.Pictures.Insert(RutaActual & "\Fotos\" & RangoImagen.Value & ".jpg").Select<br /> Call AjusteDeFoto<br /> ActiveCell.Offset(1, 0).Select<br />Loop<br />Range("A1").Select<br />On Error GoTo 0<br />End SubGuapovaderhttps://www.blogger.com/profile/16727000296727268583noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-64119406571384935192018-09-27T23:42:23.270+02:002018-09-27T23:42:23.270+02:00Gracias Ismael, te contaré cuando lo pueda resolve...Gracias Ismael, te contaré cuando lo pueda resolver. Te agradezco tu ayuda!Anonymoushttps://www.blogger.com/profile/07501261512510409669noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-28412518964533946272018-09-20T09:53:10.434+02:002018-09-20T09:53:10.434+02:00Hola Jonathan,
para dar saltos de ese estilo, por ...Hola Jonathan,<br />para dar saltos de ese estilo, por filas o columnas, se suele emplear un contador, dentro de un bucle, que determine cuándo saltar de fila.. de tal forma que cuando el contador llegara a 3 (en tu caso) se ponga cero y salte de fila el número de celdas deseado<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-43228297989467902372018-09-19T22:55:35.358+02:002018-09-19T22:55:35.358+02:00Muchas gracias Ismael, si vi tu post (reviso tu bl...Muchas gracias Ismael, si vi tu post (reviso tu blog seguido), sin embargo lo que no he logrado, es como hacer el loop (o lo que sea), para que inserte tres imágenes en fila, y baje otra fila e inserte otras tres y baje sucesivamente hasta que se acaben las imágenes. Mira, el patrón es este: https://drive.google.com/file/d/1LkOqqH_SRhkUC40F8YDEg_Itxw45ijIGAnonymoushttps://www.blogger.com/profile/07501261512510409669noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-18201095984585608952018-09-16T10:10:27.522+02:002018-09-16T10:10:27.522+02:00Hola,
ya publiqué la forma en que determinar el nú...Hola,<br />ya publiqué la forma en que determinar el número de celdas de alto y ancho de una celda combinada...<br /><a href="http://excelforo.blogspot.com/2018/09/vba-ancho-y-alto-de-una-celda-combinada.html" rel="nofollow">http://excelforo.blogspot.com/2018/09/vba-ancho-y-alto-de-una-celda-combinada.html</a><br />Eso te dará la clave para localizar la posición que necesitas<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-10857366635152673042018-09-15T22:51:03.571+02:002018-09-15T22:51:03.571+02:00Saludos Ismael, no quisiera parecer atrevido y est...Saludos Ismael, no quisiera parecer atrevido y estoy seguro que pasas ocupado, pero apenas tengas un tiempito te agradecería tu muy amable ayuda con este tema, muchisimas gracias de antemano por tu amabilidad!Anonymoushttps://www.blogger.com/profile/07501261512510409669noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-82184192645011293742018-08-24T09:35:21.438+02:002018-08-24T09:35:21.438+02:00Gracias por el aporte Jonathan ;-)
Como te decía e...Gracias por el aporte Jonathan ;-)<br />Como te decía escribiré un post para explicar una manera de conseguirlo<br />Saludos cordialesExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-3621282563401673002018-08-23T23:10:50.140+02:002018-08-23T23:10:50.140+02:00Yo de nuevo. La variante que quisiera, es algo sim...Yo de nuevo. La variante que quisiera, es algo similar a tu rutina: insertar todas las imáganes de una carpeta pero en cierto orden. Mi Reporte Fotográfico consta de tres rangos de celdas combinadas (A9:K17, L9:V17 y W9:AG17) con ancho de columna = 2.5. Debajo de cada rango hay otro renglón donde va el nombre del archivo (A18:K18, L18:V18 y W18:AG18) respectivamente. Después se vuelve a repetir la secuencia hacia abajo, hasta completar 20 juegos, es decir, para insertar 60 fotos. Entonces la rutina sería de un folder definido, inserte tres imagenes una MergeArea, baje un Row e inserte los nombres, baje un Row y de nuevo inserte imágenes en el MergeArea y baje otro Row e inserte el nombre y repetir el ciclo hasta que se acaben las fotos, no necesariamente 60 fotos, pueden ser menos, pero no más.<br /><br />Te agradezco de nuevo tus consejos.<br />Anonymoushttps://www.blogger.com/profile/07501261512510409669noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-30545629968318182982018-08-23T23:10:13.071+02:002018-08-23T23:10:13.071+02:00Hola Ismael, muchas gracias por tu respuesta. Mi n...Hola Ismael, muchas gracias por tu respuesta. Mi nombre es Jonathan por cierto (aparezco como Unknow). Lo resolví con la siguiente rutina.Te la dejo por si le sirve de ayuda a alguien.<br /><br />Lo de RangoPermitido fue una prueba que no sirvió, al final lo resolví con ScrollArea.<br /><br />Te agradezco tus consejos.<br /><br />Option Explicit<br />Sub InsertarImagen()<br /><br /> Dim Imagen As Shape 'define la variable Imagen como un Shape<br /> Dim FolderInicio As String 'define la variable FolderInicio como texto<br /> Dim celdas As Range 'define la variable celdas como rango de celdas<br /> Dim archivoimagen As Variant 'define la variable archivoimagen como variable<br /> Dim y As Integer<br /> Dim x As Integer<br /> 'Dim RangoPermitido As Range<br /><br />Application.ScreenUpdating = False ' para hacer la rutina silenciosa<br /><br />Set celdas = ActiveCell.MergeArea 'las celdas seleccionadas serán las que se van a trabajar<br /><br />'RangoPermitido = Range("a9:ag1000")<br />'If celdas.Address <> RangoPermitido Then<br /> ' MsgBox "Inserte la imagen en el área para tal fin", , "Zona no permitida"<br />' Exit Sub<br />'Else<br /><br />FolderInicio = ActiveWorkbook.Path & "\FOTOS\" 'especifica la carpeta de FOTOS, debe existir de previo<br />ChDrive Left(FolderInicio, 1)<br />On Error GoTo noFolder<br /> ChDir FolderInicio<br />noFolder:<br /> If Err.Number = 76 Then<br /> MsgBox "Verifique que existe la carpeta 'FOTOS' con las imágenes que desee insertar", , "No se encuentra la carpeta"<br /> Exit Sub<br /> End If<br /> <br /> If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub<br /> <br /> 'abre el cuadro para escoger la imagen<br /> archivoimagen = Application.GetOpenFilename( _<br /> FileFilter:="Images (*.gif;*.jpg;*.png), *.gif;*.jpg;*.png", _<br /> FilterIndex:=1, _<br /> Title:="Insertar Imagen", _<br /> ButtonText:="Insertar", _<br /> MultiSelect:=False)<br /> If archivoimagen = "Falso" Then<br /> Exit Sub 'cierra el cuadro de dialogo si no se selecciona<br /> Else<br /> archivoimagen = Mid(archivoimagen, InStrRev(archivoimagen, "\") + 1) 'devuelve el nombre del archivo escogido<br /> ActiveCell.Offset(1, 0).Value = archivoimagen ' inserta el nombre de la Shape en la celda inferior<br /> End If<br /><br /> On Error Resume Next 'omitir errores<br /><br /> 'carga la Imagen seleccionada anteriormente en la memoria:<br /> Set Imagen = ActiveSheet.Shapes.AddPicture(filename:=archivoimagen, linktofile:=msoFalse, _<br /> savewithdocument:=msoTrue, Left:=0, Top:=0, Width:=-1, Height:=-1)<br /> <br /> 'Coloca la Imagen seleccionada de acuerdo a lo siguiente:<br /> With Imagen<br /> .ShapeRange.LockAspectRatio = msoTrue ' bloquea el aspecto para que no se distorcione<br /> .Top = celdas.Top 'coloca la Imagen en la celda seleccionada<br /> If .Height > celdas.Height Then .Height = celdas.Height - 3 'define la altura de la Imagen igual a la altura de la celda menos 3 pts.<br /> If .Width > celdas.Width Then .Width = celdas.Width - 3<br /> 'End If<br /> 'End If<br /> .Left = celdas.Left 'coloca la Imagen en la celda seleccionada, referencia de izquierda<br /> End With<br /> <br /> For Each Imagen In ActiveSheet.Shapes<br /> Range(Imagen.TopLeftCell.Address).Select<br /> y = Selection.Height - Imagen.Height<br /> x = Selection.Width - Imagen.Width<br /> Imagen.Top = Selection.Top + (y / 2)<br /> Imagen.Left = Selection.Left + (x / 2)<br /> Imagen.Placement = xlFreeFloating<br /> Next<br /> <br /> 'esta macro elimina la extensión de archivo<br /> Rows("8:1000").Select<br /> Selection.Replace What:=".jpg", Replacement:="", LookAt:=xlPart, _<br /> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _<br /> ReplaceFormat:=False<br /> celdas.Select<br />'End If<br /><br />Set Imagen = Nothing<br /><br />End Sub<br /><br />Anonymoushttps://www.blogger.com/profile/07501261512510409669noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-4618014789743967962018-08-23T19:56:55.635+02:002018-08-23T19:56:55.635+02:00;-)
a qué te refieres con actualizar las imágenes?...;-)<br />a qué te refieres con actualizar las imágenes??<br /><br />Saludos cordialesExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-75680047451632205662018-08-23T19:55:00.614+02:002018-08-23T19:55:00.614+02:00Hola Ismael: ya funcionó la macro FicherosCarpeta....Hola Ismael: ya funcionó la macro FicherosCarpeta. Era cuestión de actualizar la ruta. Aún así, se requiere la actualización de imágenes a medida que se envían los informes de rayos xJosé Raúl Villacís V.https://www.blogger.com/profile/09811249752615169413noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-11915857526064101892018-08-23T16:33:23.727+02:002018-08-23T16:33:23.727+02:00Hola Ismael: tengo un programa en excel de histori...Hola Ismael: tengo un programa en excel de historia clínica para el servicio de emergencias del Hospital Local de Ibarra que está relacionado con el servicio de imágenes Rayos-X. He probado la macro FicherosCarpeta de mayo 2012 para ver si transfiero las imágenes .jpg de rayos X desde BancoFotos a las celdas de emergencia, pero no funciona.<br />El procedimiento requerido es el siguiente:<br />1. Emergencia envía una o varias solicitudes de rayos X, en diferentes momentos de la atención al paciente. Macro 1, mediante Outlook<br />2. Radiología genera una o varias imágenes de los estudios solicitados, de acuerdo a la llegada de solicitudes del mismo paciente.<br />3. Las fotos de las imágenes y su descripción se almacenan en una galería de imágenes (puede ser Benchmark Email), con la dirección web de la imagen .jpg.<br />4. Emergencia recibe en su email (Windows Live Mail que guarde feeds en la nube) los mensajes de las actualizaciones de las nuevas imágenes mediante un administrador de Email (puede ser Widget Microsiervos RSS) y los registra en celdas seleccionadas del formulario Excel del paciente (de acuerdo a la solicitud y a la llegada del informe)<br /><br />Actualmente probamos un folder (BancoFotos) en el que se almacenan manualmente (guardar como) las direcciones de las fotos archivo .jpg y luego asignamos las imágenes a cada celda definida. Macro 4, mediante hipervínculo.<br />Solicito tu concepto técnico sobre el caso y ver si puedo, por lo menos, hacer que funcione la macro inicial de tu blog.<br />Saludos y agradecimiento por tu atención.José Raúl Villacís V.https://www.blogger.com/profile/09811249752615169413noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-67632704523467262122018-08-22T18:22:13.869+02:002018-08-22T18:22:13.869+02:00Hola,
lo primero sería conocer cuantas celdas está...Hola,<br />lo primero sería conocer cuantas celdas están combinadas, donde se vaya a insertar la imagen... ya que en función a eso se podrá ubicar la posición real de la 'celda inferior' (que podría estar realmente en cualquier número de fila por debajo...)<br />Así pues, la clave es contar el número de celdas 'reales' combinadas, para una vez sabido, aplicar efectivamente un OFFSET desde la celda activa que usas...<br />Escribiré un post para explicar cómo contar celdas en una combinación..<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-37443746393773757902018-08-22T03:35:56.707+02:002018-08-22T03:35:56.707+02:00Buenas tardes Ismael. he estado siguiendo tu blog,...Buenas tardes Ismael. he estado siguiendo tu blog, es una maravilla. Mira, estoy enfrascado en una rutina similar a la tuya. La diferencia es que las imágenes van insertadas en celdas combinadas y lo he resuelto bien con ActiveCell.MergeArea. Sin embargo no logro hacer que cuando inserto la imagen, en la celda (tambien combinada) inferior aparezca el nombre del archivo. Debe ser con el Offset, pero no logro acomodarlo.<br /><br />La rutina es la siguiente:<br /><br />Option Explicit<br />Sub InsertarImagen()<br /><br /> Dim archivoimagen As String<br /> Dim Imagen As Shape<br /> Dim FolderInicio As String<br /><br />FolderInicio = ThisWorkbook.Path & "\FOTOS\" 'especifica la carpeta de FOTOS, debe existir de previo<br />ChDrive Left(FolderInicio, 1)<br />ChDir FolderInicio<br /> <br /> If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub<br /> <br /> 'abre el cuadro para escoger la imagen<br /> archivoimagen = Application.GetOpenFilename( _<br /> FileFilter:="Images (*.gif;*.jpg;*.png), *.gif;*.jpg;*.png", _<br /> FilterIndex:=1, _<br /> Title:="Insertar Imagen", _<br /> ButtonText:="Insertar", _<br /> MultiSelect:=False)<br /> If archivoimagen = "False" Then Exit Sub<br /> On Error Resume Next<br /> <br /> With ActiveCell.MergeArea<br /> ActiveSheet.Shapes.AddPicture _<br /> Filename:=archivoimagen, _<br /> linktofile:=msoFalse, _<br /> savewithdocument:=msoTrue, _<br /> Left:=.Left, _<br /> Top:=.Top, _<br /> Width:=.Width - 25.5, _<br /> Height:=.Height - 3<br /> End With<br />End Sub<br /><br />Te agradezco tu amable ayuda.Anonymoushttps://www.blogger.com/profile/07501261512510409669noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-38119106788371515242018-07-05T08:22:13.418+02:002018-07-05T08:22:13.418+02:00Hola!
asegúrate que el proceso de selección de rut...Hola!<br />asegúrate que el proceso de selección de ruta y la celda destino es correcta en cuanto a hoja activa (Activesheet)...<br />Es difícil darte una respuesta clara sin ver el código exacto<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-47975253558329094522018-07-05T01:04:30.918+02:002018-07-05T01:04:30.918+02:00Hola Ismael, tengo un codigo parecido; el codigo ...Hola Ismael, tengo un codigo parecido; el codigo me inserta las imagenes en una hoja pero cuando paso a la otra , llega un momento que cuando aplica el comando para insertar imagenes , salta el bucle.cer1045https://www.blogger.com/profile/14346569802075323241noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-73696559117749835392017-04-26T19:59:32.580+02:002017-04-26T19:59:32.580+02:00;-)
Slds;-)<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-36605682819274434052017-04-22T17:31:01.970+02:002017-04-22T17:31:01.970+02:00Muchas gracias Ismael! vaya error tan tonto! Un ab...Muchas gracias Ismael! vaya error tan tonto! Un abrazo!Anonymoushttps://www.blogger.com/profile/01239217660066740758noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-42219195150120549672017-04-22T08:35:57.280+02:002017-04-22T08:35:57.280+02:00Hola Marta,
El código del post es correcto, aunque...Hola Marta,<br />El código del post es correcto, aunque no se distingue bien tu video, parece que tu ruta tiene esta forma:<br />C:\MARCAS_FOTO<br />y debería ser (revisa el código del post)<br />C:\MARCAS_FOTO\<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-21214282233347348562017-04-21T18:20:16.933+02:002017-04-21T18:20:16.933+02:00Hola Ismael,
He intentado usar tu código pero tam...Hola Ismael,<br /><br />He intentado usar tu código pero tampoco funciona. Te adjunto un vídeo para que veas, paso a paso, el proceso. He usado tu código tal cual, cambiando la ruta, pero no importa las imágenes de la carpeta (sólo el literal del nombre del archivo en la primera columna). Son todos archivos en JPG.<br /><br />Video: https://www.youtube.com/watch?v=w6jn8tJr4I0<br /><br />Es probable que no sea la única con este problema o, posiblemente, esté cometiendo un error de novata. ¿Qué puede ser?<br /><br />Un saludo!Anonymoushttps://www.blogger.com/profile/01239217660066740758noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-34355314256546778092017-04-21T11:32:22.817+02:002017-04-21T11:32:22.817+02:00Lo miraré en cuanto me sea posible...
mientras emp...Lo miraré en cuanto me sea posible...<br />mientras emplea el código del post que es 100% funcional, y <b>hace precisamente lo que tu quieres</b><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-69269199604772761522017-04-20T17:21:52.088+02:002017-04-20T17:21:52.088+02:00Muchas gracias, Ismael!
Eso he hecho pero no cons...Muchas gracias, Ismael!<br /><br />Eso he hecho pero no consigo que funcione. No soy muy ducha en VBA, la verdad. Algo estoy haciendo mal. Como verás más abajo he definido el .Width y .height un pixel más pequeño que el tamaño de la celda para evitar distorsionar las imagenes cuando edite el tamaño de las filas/columnas, de lo contrario se anclan a los extremos de las celdas.<br /><br />Pero... sigo sin conseguir que funcione. Estoy convencido que te lloverán dudas cada día pero no consigo la solución por mi misma y son cientos de imágenes cada dos por tres, quiero intentar automatizarlo. Puedo perder horas y horas a la semana sin hacer nada realmente productivo. He revisado tu post de "VBA: Una macro en Excel para insertar imágenes" y todos sus respectivos comentarios. Nadie consigue tampoco dar una respuesta concluyente.<br /><br />Si tienes un huequito para revisarlo, para llegar a una solución concreta me ayudaría muchísisisimo. No te lo puedes ni imaginar!<br /><br />Un fuerte abrazo!<br /><br />--------------------------------------------<br /><br />Sub AddOlEObject()<br /><br /> Dim mainWorkBook As Workbook<br /><br /> Set mainWorkBook = ActiveWorkbook<br /> Sheets("Object").Activate<br /> Folderpath = "C:\Users\RUTA"<br /> Set fso = CreateObject("Scripting.FileSystemObject")<br /> NoOfFiles = fso.GetFolder(Folderpath).Files.Count<br /> Set listfiles = fso.GetFolder(Folderpath).Files<br /> For Each fls In listfiles<br /> strCompFilePath = Folderpath & "\" & Trim(fls.Name)<br /> If strCompFilePath <> "" Then<br /> If (InStr(1, strCompFilePath, "jpg", vbTextCompare) > 1 _<br /> Or InStr(1, strCompFilePath, "jpeg", vbTextCompare) > 1 _<br /> Or InStr(1, strCompFilePath, "png", vbTextCompare) > 1) Then<br /> counter = counter + 1<br /> Sheets("Object").Range("A" & counter).Value = fls.Name<br /> Sheets("Object").Range("B" & counter).ColumnWidth = 25<br /> Sheets("Object").Range("B" & counter).RowHeight = 100<br /> Sheets("Object").Range("B" & counter).Activate<br /> Call insert(strCompFilePath, counter)<br /> Sheets("Object").Activate<br /> End If<br /> End If<br /> Next<br />mainWorkBook.Save<br />End Sub<br /><br />'--------------------------<br /><br />Sub insert(PicPath, counter)<br /><br />Set Fotos = ActiveSheet.Shapes.AddPicture(Filename:=PicPath, _<br />linktofile:=msoFalse, savewithdocument:=msoCTrue)<br /><br />' no sé si aquí cogerá bien el path de cada archivo en cuestión. En el sub superior ya he definido la ubicación de la carpeta y los formatos. Debería poner strCompFilePath como Filename?<br /><br /> With .ShapeRange<br /> .LockAspectRatio = msoTrue 'evito distorsionar la imagen<br /> .Width = 24<br /> .Height = 99<br /> End With<br /> .Left = ActiveSheet.Range("B" & counter).Left<br /> .Top = ActiveSheet.Range("B" & counter).Top<br /> .Placement = 1<br /> .PrintObject = True<br /> End With<br />End SubAnonymoushttps://www.blogger.com/profile/01239217660066740758noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-69922886681233180442017-04-20T10:50:57.092+02:002017-04-20T10:50:57.092+02:00claro,tienes que ajustar tus sentencias With.. end...claro,tienes que ajustar tus sentencias With.. end with a la nueva situación, así como el resto de configuraciones que tenías de posición (top, left) y dimensiones (witdh y height)...<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-33095641319603797782017-04-19T00:18:36.749+02:002017-04-19T00:18:36.749+02:00Muchísimas gracias por tu respuesta, Ismael!
Te lo...Muchísimas gracias por tu respuesta, Ismael!<br />Te lo agradezco muchísimo. <br /><br />Lo he editado para convertirlo en un procedimiento sub dejando el procedimiento principal igual, como indicaste, pero sigue dando error.<br /><br />Te copio una impresión de pantalla:<br />http://i.imgur.com/d61cU9F.jpg<br /><br />Me dice "Referencia no válida o sin calificar"<br /><br />Qué puede ser?<br /><br />Un abrazo!!Anonymoushttps://www.blogger.com/profile/01239217660066740758noreply@blogger.com