Archivos de Diario para octubre 2018

29 de octubre de 2018

Las fotos de tus observaciones en un Excel

Estimadas/os,

No sé si saben, que iNaturalist les permite exportar sus observaciones en un excel (archivo separado por comas, CSV) muuuy completo. Permitiendo elegir que campos queremos exportar. En el caso de imágenes se ponen los links a las imágenes. Aquí les traigo un macro para ejecutar en el excel, que descargara sus imágenes en el excel y así tenes el vistazo rápido de la observación junto con todos sus datos.

Espero les sirva,
Salute.

INSTRUCCIONES:

  1. Al abrir el excel y acomodarlo, agregar una columna a la derecha de la columna que posee los hipervínculos.
  2. Abrir Microsoft Visual Basic for Applications (Alt + F11)
  3. Hacer clic en Insert > Module, y pegar el código que se muestra a continuación en la ventana de Module:
Sub URLPictureInsert() 'Updateby Extendoffice 20161116 Dim Pshp As Shape Dim xRg As Range Dim xCol As Long On Error Resume Next Application.ScreenUpdating = False Set Rng = ActiveSheet.Range("A2:A6") For Each cell In Rng filenam = cell ActiveSheet.Pictures.Insert(filenam).Select Set Pshp = Selection.ShapeRange.Item(1) If Pshp Is Nothing Then GoTo lab xCol = cell.Column + 1 Set xRg = Cells(cell.Row, xCol) With Pshp .LockAspectRatio = msoFalse .Width = 225 .Height = 150 .Top = xRg.Top + (xRg.Height - .Height) / 2 .Left = xRg.Left + (xRg.Width - .Width) / 2 End With lab: Set Pshp = Nothing Range("A2").Select Next Application.ScreenUpdating = True End Sub
  1. Reemplazar los números de celdas por los correspondientes a las celdas del excel exportado.
    Opcional: modificar las dimensiones de las imágenes, en el código estan Width = 150 Height = 225 (lo que seria una proporción 3:2, la cual se recomienda mantener dado que es la que poseen la mayoría de las imágenes horizontales, para las verticales saldrán deformes. Falta revisar, pero ayuda de identificar la observación)

  2. Seleccionar todo el código y presionar F5

Anotado en lunes, 29 de octubre de 2018 a las 07:44 PM por gmalonso gmalonso | 1 comentario | Deja un comentario