vbageofoto

come utilizzare il programma scritto con VBA se non si utilizza il file.xls fornito o non si salva
la pagina come pagina web (file unico:testo e cartella_file per le immagini)

si deve copiare il codice e incollarlo sul foglio di excel; si devono copiare le 5 immagini
in una cartella (es.vbafoto):si devono creare 6 pulsanti; si devono creare 5 cornici
per inserirvi le immagini
come procedere:

vedi vbageofoto.xls

copiare il codice
aprire Excel e incollare il codice (creare sei pulsanti senza modificare i nomi)
(eventualmente modificare la legenda con proprietà-caption)
creare 5 cornici simili e sovrapposte parzialmente per le 5 immagini da inserire
copiare le 5 immagini in una cartella es.vbafoto con il nome triangolo, rettangolo,quadrato,trapezio,rombo
aprire sul foglio di Excel una cornice per immagine ,cliccare sulla cornice,proprietà,
nominata image1 :selezionare picture:selezionare da
cartella vbafoto la immagine triangolo per inserire prima immagine image1
ripetere operazione per altre immagini (rettangolo, quadrato, trapezio, rombo)
in cornice image2, image3 ,image4, image5
(eventualmente modificare posizione e formato cornici)
salvare foglio.xls

Private Sub CommandButton1_Click()
Rem triangolo
Cells(4, 1) = "base, altezza, lato > area , perimetro"
Image1.Visible = True 'visualizza triangolo
Cells(1, 1) = "base "
Cells(1, 2) = "altezza "
Cells(1, 3) = "lato "
Cells(1, 4) = "area"
Cells(1, 5) = "perimetro"
area = Cells(2, 1) * Cells(2, 2) / 2
perimetro = Cells(2, 1) + 2 * Cells(2, 3)
Cells(2, 4) = area
Cells(2, 5) = perimetro
End Sub

Private Sub CommandButton2_Click()
Rem rettangolo
Cells(4, 1) = "base e altezza > area, perimetro, diagonale"
Image2.Visible = True 'visualizza rettangolo
Cells(1, 1) = "base "
Cells(1, 2) = "altezza "
Cells(1, 3) = "diagonale"
Cells(1, 4) = "area"
Cells(1, 5) = "perimetro"
area = Cells(2, 1) * Cells(2, 2)
perimetro = 2 * Cells(2, 1) + 2 * Cells(2, 2)
Cells(2, 4) = area
Cells(2, 5) = perimetro
Cells(2, 3) = Sqr(Cells(2, 1) ^ 2 + Cells(2, 2) ^ 2)
End Sub

Private Sub CommandButton3_Click()
rem cancella diciture e dati e nasconde tutte le immagini
For riga = 1 To 7
For colonna = 1 To 7
Cells(riga, colonna) = ""
Next colonna
Next riga
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False

End Sub

Private Sub CommandButton4_Click()
Rem quadrato
Cells(4, 1) = "lato > area, perimetro, diagonale"
Image3.Visible = True 'visualizza quadrato
Cells(1, 1) = "lato "
Cells(1, 3) = "diagonale"
Cells(1, 4) = "area"
Cells(1, 5) = "perimetro"
area = Cells(2, 1) * Cells(2, 1)
perimetro = 4 * Cells(2, 1)
Cells(2, 4) = area
Cells(2, 5) = perimetro
Cells(2, 3) = Sqr(Cells(2, 1) ^ 2 + Cells(2, 1) ^ 2)
End Sub

Private Sub CommandButton5_Click()
Rem trapezio isoscele
Cells(4, 1) = "base maggiore, base minore, altezza, lato >area, perimetro"
Image4.Visible = True ' visualizza trapezio
Cells(1, 1) = "base maggiore"
Cells(1, 2) = "base minore"
Cells(1, 3) = "altezza"
Cells(1, 4) = "lato"
Cells(1, 5) = "area"
Cells(1, 6) = "perimetro"
area = ((Cells(2, 1) + Cells(2, 2)) * Cells(2, 3) / 2)
perimetro = Cells(2, 1) + Cells(2, 2) + Cells(2, 4) * 2
Cells(2, 5) = area
Cells(2, 6) = perimetro
End Sub

Private Sub CommandButton6_Click()
Rem rombo
Image5.Visible = True ' visualizza rombo
Cells(1, 4) = "lato e altezza > area e perimetro"
Cells(1, 5) = "due diagonali > area "
Cells(1, 1) = "lato "
Cells(1, 2) = "diagonale 1"
Cells(1, 3) = "diagonale 2"
Cells(1, 4) = "altezza"
Cells(1, 5) = "perimetro"
Cells(1, 6) = "area1 "
Cells(1, 7) = "area2 "
area1 = Cells(2, 1) * Cells(2, 4) 'base per altezza
area2 = Cells(2, 2) * Cells(2, 3) / 2 'prodotto diagonali /2
perimetro = 4 * Cells(2, 1)
Cells(2, 6) = area1
Cells(2, 7) = area2
Cells(2, 5) = perimetro
End Sub

aprire Excel e incollare il codice (creare sei pulsanti senza modificare i nomi)
(eventualmente modificare la legenda con proprietà-caption)
creare 5 cornici simili e sovrapposte parzialmente per le 5 immagini da inserire

aprire sul foglio di Excel una cornice per immagine ,cliccare sulla cornice,proprietà,
nominata image1 :selezionare picture:selezionare da
cartella vbafoto la immagine triangolo per inserire prima immagine image1
ripetere operazione per altre immagini (rettangolo, quadrato, trapezio, rombo)
in cornice image2, image3 ,image4, image5

copiare le 5 immagini in una cartella es.vbafoto con il nome triangolo, rettangolo,quadrato,trapezio,rombo

image1

image2

image3

image4

image5