Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Funktion/Bedingung für Anrede
  • albe14.03.12 11:46
       └ RE: Funktion/Bedingung für Anrede Karl Donaubauer14.03.12 22:06
          └ RE: Funktion/Bedingung für Anrede albe15.03.12 09:15
  • mit Assistenten VBA Code erstellen & wozu neu ACCE...
  • Mani14.03.12 11:05
       └ RE: mit Assistenten VBA Code erstellen & wozu ne... Karl Donaubauer14.03.12 21:57
  • Indexfehler bei neuem Datensatz
  • Edi13.03.12 14:43
       └ RE: Indexfehler bei neuem Datensatz Karl Donaubauer13.03.12 23:46
  • Recordset in Tabelle
  • jojogar06.03.12 16:07
       └ RE: Recordset in Tabelle PeterDoering09.03.12 20:07
          └ RE: Recordset in Tabelle Karl Donaubauer09.03.12 21:32
  • Zum Jahr die entsprechenden Datensätze ausgeben
  • Angie05.03.12 08:06
       └ RE: Zum Jahr die entsprechenden Datensätze ausge... Karl Donaubauer05.03.12 15:47
       └ Zum Jahr die entsprechenden Datensätze ausgeben.... Angie06.03.12 13:35
          └ RE: Zum Jahr die entsprechenden Datensätze aus... Karl Donaubauer06.03.12 18:49
       └ Zum Jahr die entsprechenden Datensätze ausgeben.... Angie09.03.12 09:41
          └ RE: Zum Jahr die entsprechenden Datensätze aus... Karl Donaubauer09.03.12 16:49
  • Beschleunigung des Anzeigevorgangs eines Formulars
  • Babak06.03.12 16:16
       └ RE: Beschleunigung des Anzeigevorgangs eines For... Karl Donaubauer07.03.12 18:33
          └ RE: Beschleunigung des Anzeigevorgangs eines F... Babak08.03.12 14:47
             └ RE: Beschleunigung des Anzeigevorgangs eines... Karl Donaubauer08.03.12 14:57
                └ RE: Beschleunigung des Anzeigevorgangs ein... Babak09.03.12 12:41
                   └ RE: Beschleunigung des Anzeigevorgangs e... Karl Donaubauer09.03.12 16:28
  • Summenfeld wird nicht rechtzeitig aktualisiert
  • szangs05.03.12 12:10
       └ RE: Summenfeld wird nicht rechtzeitig aktualisie... Karl Donaubauer05.03.12 15:55
          └ RE: Summenfeld wird nicht rechtzeitig aktualis... szangs09.03.12 10:01
  • SQL: ALTER TABLE xxx ADD COULUMN yyy
  • wolf3307.03.12 19:13
       └ RE: SQL: ALTER TABLE xxx ADD COULUMN yyy Karl Donaubauer07.03.12 19:48
          └ RE: SQL: ALTER TABLE xxx ADD COULUMN yyy wolf3307.03.12 20:43
  • e-mail mit mehrere Anhänge aus access versenden
  • alexschedel02.03.12 17:58
       └ RE: e-mail mit mehrere Anhänge aus access versen... Gunter Avenius02.03.12 21:25
          └ RE: e-mail mit mehrere Anhänge aus access vers... alexschedel05.03.12 16:00
             └ RE: e-mail mit mehrere Anhänge aus access ve... Karl Donaubauer05.03.12 16:13
                └ RE: e-mail mit mehrere Anhänge aus access ... alexschedel06.03.12 15:34
                   └ RE: e-mail mit mehrere Anhänge aus acces... Karl Donaubauer07.03.12 18:59
  • Datum an SQL-Server
  • Andy07.03.12 14:43
       └ RE: Datum an SQL-Server Karl Donaubauer07.03.12 15:14
          └ RE: Datum an SQL-Server Andy07.03.12 15:58
             └ RE: Datum an SQL-Server Karl Donaubauer07.03.12 18:04
  • SQL-Datentyp "Ja/Nein
  • wolf3306.03.12 17:52
       └ RE: SQL-Datentyp "Ja/Nein Karl Donaubauer06.03.12 18:10
          └ RE: SQL-Datentyp "Ja/Nein wolf3306.03.12 18:17
  • Access Stammtisch München am 08.03.2012 (Do)
  • StefanWirrer06.03.12 09:10
  • CurrentProject.Path Delta Sonderzeichen
  • Schulle6529.02.12 17:45
       └ RE: CurrentProject.Path Delta Sonderzeichen PeterDoering01.03.12 00:37
          └ RE: CurrentProject.Path Delta Sonderzeichen Schulle6503.03.12 10:55
             └ RE: CurrentProject.Path Delta Sonderzeichen Schulle6504.03.12 16:56
                └ RE: CurrentProject.Path Delta Sonderzeichen PeterDoering05.03.12 02:27
  • Gruppierter Bericht mit Detaildaten als Chart
  • Claus29.02.12 16:18
       └ RE: Gruppierter Bericht mit Detaildaten als Chart PeterDoering01.03.12 00:40
          └ RE: Gruppierter Bericht mit Detaildaten als Ch... Claus03.03.12 14:54
             └ RE: Gruppierter Bericht mit Detaildaten als ... Karl Donaubauer03.03.12 18:09
                └ RE: Gruppierter Bericht mit Detaildaten al... Claus04.03.12 14:52
  • Bilder komprimieren
  • Schulle6503.03.12 11:08
       └ RE: Bilder komprimieren Schulle6503.03.12 19:14
    Schulle65
    Gesendet: 03.03.12 11:08
    Betreff: Bilder komprimieren


    Hallo Gemeinde,

    ich hatte schon verschiedenes probiert um Bilder mit VBA zu verkleinern.

    Nun hatte ich folgende Idee und wollte dieses mal zur Diskussion stellen:

    Ich füge in ein leeres Word Dokument ein Bild ein und speicher dieses als Website (*.htm). Word erstellt darauf hin die Datei und einem Ordner das Originalbild und das komprimierte Bild.
    Nachteil davon ist ganz klar der Umweg über das speichern auf der Festplatte - also für viele Dateien eher nicht zu gebrauchen. Spricht sonst etwas noch dagegen?

    Hier mal der Code dazu:

    '-----------Anfang-----------------------

    Function BildVerkleinern(sQuelle As String, sZiel As String, sTempDoc As String) As Boolean
    Dim sPfad As String
    Dim objWord As Word.Application
    Dim odoc As Word.Document

    If Dir(sTempDoc) = "" Then
    MsgBox "Leeres Worddokument fehlt"
    Exit Function
    End If

    sPfad = CurrentProject.Path & "\TempBilder\"

    If Dir(sPfad, vbDirectory) = "" Then MkDir sPfad



    Set objWord = New Word.Application
    Set odoc = objWord.Documents.Open(sTempDoc)


    odoc.InlineShapes.AddPicture FileName:=sQuelle ', LinkToFile:=False, SaveWithDocument:=True
    objWord.ActiveDocument.SaveAs FileName:=sPfad & "Temp.htm", FileFormat:=wdFormatHTML

    odoc.Close False
    objWord.Quit

    Set odoc = Nothing
    Set objWord = Nothing

    If Dir(sPfad & "Temp-Dateien\image002.jpg") <> "" Then
    FileCopy sPfad & "Temp-Dateien\image002.jpg", sZiel
    On Error Resume Next
    Kill sPfad & "Temp.htm"
    Kill sPfad & "Temp-Dateien\filelist.xml"
    Kill sPfad & "Temp-Dateien\image001.jpg"
    Kill sPfad & "Temp-Dateien\image002.jpg"
    BildVerkleinern = True
    End If
    End Function

    '----------Ende------------------------


    Jürgen
    Top of the page Bottom of the page


    Seite: < 56 57 58 59 60 61 ... 62 63 64 65 66 67 68 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)