exportGridToExcel

Public Sub exportGridToExcel(nomegriglia As MSFlexGrid)

Dim oExcel  As Object
Dim oBook As Object

Dim i As Integer
Dim j As Integer

  'Start a new workbook in Excel
  Set oExcel = CreateObject("Excel.Application")
  Set oBook = oExcel.Workbooks.Add
  oExcel.Visible = True
  'riporta la griglia in excel
  For i = 0 To nomegriglia.Rows - 1
    For j = 0 To nomegriglia.Cols - 1
      oExcel.cells(i + 1, j + 1).Value = nomegriglia.TextMatrix(i, j)
    Next
  Next
 
  MsgBox "salvataggio su excel terminato"
 
End Sub

font google

https://developers.google.com/fonts/docs/getting_started#Quick_Start


esempi font google
http://www.google.com/fonts