SISTEMA DE MATRICULA Y CONSULTA DE CALIFICACIONES 1/2

imágenes en mega
mega.nz/file/O...
------------------------------------------------------------------------------------------------------------
minuto 30:04 validación de la celda
------------------------------------------------------------------------------------------------------------
With ws.Range("F19").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=opciones
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
---------------------------------------------------------------------------------------------------------------
minuto 32:13 codigo para llamar la imagen sin foto.png
OJO: aqui usar el numero de rectangulo generado en su ejercicio
---------------------------------------------------------------------------------------------------------------
ActiveSheet.Shapes.Range(Array("Rectangle 139")).Select
With Selection.ShapeRange.Fill
.UserPicture "C:\SISTEMA MAT\FOTOS\sin foto.png"
End With
---------------------------------------------------------------------------------------------------------
minuto 33:20 cuadro de dialogo del
---------------------------------------------------------------------------------------------------------
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Seleccionar imagen"
.Filters.Clear
.Filters.Add "Archivos de imagen", "*.png; *.jpg", 1
If .Show = -1 Then
ruta = .SelectedItems(1)
Else
Exit Sub
End If
End With

[@walbertorodrigueztorres1636]

EXCELENTE VIDEO... Soy docente y me gustan mucho los proyectos en excel utilizando Visual Basic.

[@aspptechnology]

Gracias por tu comentario, si la verdad excel es una herramienta que si se explota al máximo tiene mucho que ofrecer

[@adrianmori9543]

Buen sistema! Se podría considerar la opción para emitir un reporte de notas del alumno en pdf.

[@aspptechnology]

Claro que si amigo, en el segundo video