Tengo la siguiente macro que pone una foto en la hoja segun el número que se ponga en la celda E1. La foto permanece quieta con W10 pero utilizada en otros ordenadores con W7, vista, XP .. oscila (da como un salto sin moverse del sitio) cada vez que pasamos de celda. Alguien puede decirme lo que tengo que hacer para que esto no suceda MACRO: ' PONER FOTO Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Dim codigo As Integer Dim fila As Integer Dim filas As Integer Dim ruta As String Dim Existe As String ' COLOCAR AQUÍ LA RUTA DONDE ESTAN LAS FOTOS ruta = "C:\BancoFotos\" 'On Error GoTo salida If Worksheets("MENU").Cells(1, 5).Value = "" Then ActiveSheet.Image1.Picture = LoadPicture(ruta & "0.jpg") GoTo 99 Else codigo = Worksheets("MENU").Cells(1, 5).Value 'Busco el caso(codigo beneficiario) que he seleccionado For filas = 2 To 500 fila = filas If Worksheets("Datos").Cells(fila, 10).Value = codigo Then filas = 500 Next If Worksheets("Datos").Cells(fila, 10).Value <> codigo Then GoTo 99 ' Comprueba si existe FOTO y la muestra Existe = Dir$(ruta & codigo & ".jpg") ' la función Dir devuelve una cadena vacía si no existe el archivo. If Len(Existe) > 0 Then ActiveSheet.Image1.Picture = LoadPicture(ruta & codigo & ".jpg") Else ActiveSheet.Image1.Picture = LoadPicture(ruta & "sinfoto.jpg") End If End If Exit Sub 'PONE NO EXISTE BENEFICIARIO 99: MsgBox ("NO EXISTE ESTE BENEFICIARIO") Range("E1").Select 'Worksheets("MENU").Range("E1").Value = 0 Exit Sub 'Limpiar Mascara de MODIFICACIONES en Puerta. 'Worksheets("Puerta").Cells(7, 1).Value = "" 'Limpia modificaciones 'Worksheets("Puerta").Cells(4, 7).Value = "" Exit Sub Salida: MsgBox "no existe foto en carpeta", vbCritical End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Foto en hoja excel oscila al pasar de celda

Autor del tema Ricardo Javier Felix
Fecha de inicio 26 Oct 2019

Ricardo Javier Felix

New member

26 Oct 2019

Tengo la siguiente macro que pone una foto en la hoja segun el número que se ponga en la celda E1. La foto permanece quieta con W10 pero utilizada en otros ordenadores con W7, vista, XP .. oscila...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Pegar imagen de foto en hoja de cada persona

Respuestas: 9

17 Abr 2021

Héctor Miguel

Resuelto

Image.Picture = LoadPicture ("") no libera la foto del control image

Respuestas: 4

1 Sep 2024

josecroft

Pregunta

codigo para que la foto que tome sea diferente a la foto1

Respuestas: 2

24 Ene 2021

persivalx

Pregunta

Añadir/Modificar fecha captura foto

Respuestas: 0

7 Abr 2020

lphant

Pregunta

CREAR FOTO DESDE WEBCAD EN EXCEL

Respuestas: 0

9 May 2014

cesardefez

Pregunta

Como puedo copiar foto y pegar su nombre en tabla excel

Respuestas: 0

25 Dic 2013

anton

Pregunta

Directorio de Contactos (con foto)

Respuestas: 8

12 Oct 2016

ErickDionicio

Pregunta

Agregar foto a macros de busqueda de datos

Respuestas: 7

31 Mar 2022

FGV

Pregunta

foto en rectangulo redondeado

Respuestas: 6

6 Ago 2008

morfeo

Pregunta

borrar foto de image

Respuestas: 3

8 Mar 2008

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba