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

4. 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)

5. Seleccionar todo el código y presionar F5

Posted by gmalonso gmalonso, October 29, 2018 19:44

Comments

Thumb

@lrubio7 te puede interesar.

Posted by gmalonso 10 months ago (Flag)

Add a Comment

Sign In or Sign Up to add comments

Is this inappropriate, spam, or offensive? Add a Flag