Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 2 su 2

Conversione file per mac...

  1. #1
    maso989 non è in linea Novello
    Ciao ragazzi ho una parte di programma che vorrei modificare per renderlo funzionante su un mac,la prima parte crea una cartella in c: di nome Formazione,la seconda salva un immagine nella cartella "c:/Formazioni" e la terza apre una pagina fb su browser(questa credo che funzioni anche su mac).
    Come devo cambiare il codice per renderlo utilizzabile su mac?è fattibile? grazie mille per la disponibilità!
    'Creo la cartella Formazioni in c:\Formazioni se non è presente, atrimenti niente!
    If Dir("C:\Formazioni", vbDirectory) = "" Then
       Dim FileSystemObj
       Set FileSystemObj = CreateObject("Scripting.FileSystemObject")
       FileSystemObj.CreateFolder "C:\Formazioni"
       MsgBox "Attenzione: E' stata creata la nuova Cartella Formazioni nella Directory C:\", _
       vbInformation, "Avviso"
    End If
    Set FileSystemObj = Nothing
    
    'Stampo l'immagine della formazione nella cartella c:\Formazioni
    MySheet = "Magic Team 13.0"     '<<< Il foglio da "fotografare"
    MyArea = "E6:Q41"       '<<< La tua area da fotografare
    '
    Nominat = Sheets("Magic Team 13.0").Range("I7").Value  '<<< La cella dove si trova il nominativo "corrente"
    Nominat1 = Sheets("Magic Team 13.0").Range("B3").Value
    '
    Sheets(MySheet).Activate
    Range(MyArea).Select
    GifLargh = Selection.Width        '<<<AGGIUNTA
    GifAlt = Selection.Height             '<<<AGGIUNTA
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    Sheets("Deposito").Select
    Dim ch As ChartObject
    Set ch = Sheets("Deposito").ChartObjects.Add(1, 1, GifLargh, GifAlt)
    Sheets("Deposito").ChartObjects(1).Activate
    ActiveChart.ChartArea.Select
    ActiveChart.Paste
    OutFile = "C:\Formazioni\" & Nominat & "_" & Nominat1 & "_.png"
    Worksheets("Deposito").ChartObjects(1) _
    .Chart.Export _
    Filename:=OutFile, FilterName:="png"
    ActiveSheet.ChartObjects(1).Delete
    Sheets(MySheet).Activate
    Range("b3").Select
     MsgBox "La formazione è stata salvata nella Cartella C:\Formazioni", _
       vbInformation, "Avviso"
    'Apro il gruppo del Fantacalcio su fb
    Dim shell As Object
    Set shell = CreateObject("shell.application")
    shell.Open "https://www.facebook.com/groups/156784634524570/"
    

  2. #2
    maso989 non è in linea Novello
    Ragazzi nessuno ha una qualche dritta da darmi?è cosi difficile da fare o non si può fare?Grazie per la disponibilità

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Conversione file access
    Da Bordignon66 nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 07-10-2020, 13:09
  2. Conversione file da ANSI a UTF-8
    Da gl_malinverni nel forum C/C++
    Risposte: 2
    Ultimo Post: 24-11-2016, 20:42
  3. Conversione file csv in xls
    Da Carmen nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 06-02-2016, 09:25
  4. conversione file in zip
    Da perla0279 nel forum Visual Basic .Net
    Risposte: 2
    Ultimo Post: 25-02-2009, 14:23
  5. Conversione file da mdb a dat
    Da eugenio nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 04-09-2006, 16:27