Hola, los archivos de toma de fotografías no están disponibles en dropbox. Saludos [email protected]
Hola, buenas tardes. Traté de revisar las aportaciones de Dante respecto a la toma de fotografías pero ninguno de los vínculos de dropbox son válidos.¿como podría consultar los archivos en excel?
Eduardo
1 Respuesta
Respuesta de Dante Amor
1
Te anexo un nuevo vínculo, si tienes problemas avísame y te envío el archivo por correo
https://www.dropbox.com/s/23z6eezfmn3y3ri/tomar%20foto%20webcam5.xlsm?dl=0
Hola Dante buen día, la liga que me mandas me dice esto en dropbox:
Se inhabilitó el acceso a este vínculo. Solicita al propietario del vínculo compartido que envíe un nuevo vínculo para acceder al archivo o la carpeta.
Me puedes auxiliar con esto por favor? gracias. saludos. feliz año
Estas son las macros del archivo
En un módulo:
Sub frmfoto() UserForm1.Show End Sub
en el userform
Dim htmp As String
Dim fichero As String
Const fgif = "foto"
Const mipath = "c:\" 'debe acabar en \ el directorio donde guardar las fotos
Private Sub CommandButton2_Click()
' Por.DAM
uf = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & uf) = TextBox1
Range("B" & uf) = TextBox2
Range("C" & uf).Select
ActiveSheet.Pictures.Insert(fichero).Select
With Selection
.Placement = xlFreeFloating
.PrintObject = True
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 115#
.ShapeRange.Width = 99#
.ShapeRange.Rotation = 0#
.ShapeRange.Left = Range("C" & uf).Left
.ShapeRange.Top = Range("C" & uf).Top
End With
End Sub
Private Sub CommandButton1_Click()
'Actualizado, Por.DAM
Dim s As Shape
'Crea la hoja para guardar temporalmente la foto
Application.ScreenUpdating = False
Sheets.Add
htmp = ActiveSheet.Name
Sheets(htmp).Select
Sheets(htmp).ChartObjects.Add(0, 0, 200, 250).Name = fgif
Application.CommandBars.FindControl(ID:=1764).Execute
'es necesaria una hoja creada al inicio para la captura
'al grabar se crea una copia en la hoja que es un shape
Selection.Copy
Sheets(htmp).ChartObjects(fgif).Activate
ActiveChart.ChartArea.Select
ActiveChart.Paste
'En esta parte se guarda el nombre de la foto, _
puedes cambiar el texto "num-inscripcion" por un valor
fichero = mipath & "num-inscripcion" & ".gif"
ActiveChart.Export Filename:=fichero 'graba en disco la foto
Me.Image1.Picture = LoadPicture(fichero)
'limpio la foto pegada y el chart
For Each s In Sheets(htmp).Shapes
s.Delete
Next s
'Borra hoja temporal
Application.DisplayAlerts = False
Worksheets(htmp).Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubLo que te aparece en la hoja de cálculo
Lo que debes tener en el formulario
Anexo nuevamente el vínculo
https://www.dropbox.com/s/23z6eezfmn3y3ri/tomar%20foto%20webcam5.xlsm?dl=0
Saludos. Dante Amor
No olvides valorar la respuesta.
