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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Bilder komprimieren
  • Schulle6503.03.12 11:08
       └ RE: Bilder komprimieren Schulle6503.03.12 19:14
  • Anzahl - Count
  • albe02.03.12 15:30
       └ RE: Anzahl - Count Karl Donaubauer02.03.12 16:48
  • wie kann die Performanz in Access erhöht werden?
  • Babak29.02.12 12:12
       └ RE: wie kann die Performanz in Access erhöht wer... StefanWirrer01.03.12 10:06
       └ RE: wie kann die Performanz in Access erhöht wer... Karl Donaubauer01.03.12 15:31
  • sftp
  • 1000Gerry28.02.12 19:35
       └ RE: sftp PeterDoering01.03.12 00:51
       └ RE: sftp Christian Kehl01.03.12 11:56
  • Access 2003 - Werte (1-6) aus Tabelle in Bericht ...
  • Angie24.02.12 11:52
       └ RE: Access 2003 - Werte (1-6) aus Tabelle in Be... Karl Donaubauer24.02.12 13:41
       └ RE: Access 2003 - Werte (1-6) aus Tabelle in Be... Angie29.02.12 08:18
  • API-Sammlung für Umstellung Access2003 -> 2010 ...
  • Hendrik.Lindemann22.02.12 18:20
       └ RE: API-Sammlung für Umstellung Access2003 ->... PeterDoering22.02.12 20:28
       └ RE: API-Sammlung für Umstellung Access2003 ->... Gunter Avenius23.02.12 07:41
       └ RE: API-Sammlung für Umstellung Access2003 ->... Karl Donaubauer23.02.12 11:13
       └ RE: API-Sammlung für Umstellung Access2003 ->... Hendrik.Lindemann28.02.12 10:17
          └ RE: API-Sammlung für Umstellung Access2003 -&g... Gunter Avenius28.02.12 10:52
  • Bericht mit Datumsprüfung
  • Andi-München26.02.12 11:19
       └ RE: Bericht mit Datumsprüfung Karl Donaubauer27.02.12 07:10
          └ RE: Bericht mit Datumsprüfung Andi-München27.02.12 07:56
             └ RE: Bericht mit Datumsprüfung Karl Donaubauer27.02.12 17:11
  • Hinweis bei doppelter Eingabe imm Datensatz
  • marusek131.01.12 13:14
       └ RE: Hinweis bei doppelter Eingabe imm Datensatz StefanWirrer31.01.12 15:14
       └ RE: Hinweis bei doppelter Eingabe imm Datensatz Karl Donaubauer31.01.12 15:33
          └ RE: Hinweis bei doppelter Eingabe im Datensatz marusek131.01.12 16:07
             └ RE: Hinweis bei doppelter Eingabe im Datensatz Karl Donaubauer31.01.12 16:48
                └ RE: Hinweis bei doppelter Eingabe im Datensatz marusek131.01.12 17:21
                   └ RE: Hinweis bei doppelter Eingabe im Dat... Karl Donaubauer31.01.12 17:36
                      └ RE: Hinweis bei doppelter Eingabe im D... marusek126.02.12 16:33
  • Access 2010; Tabelle kopieren
  • Andi-München25.02.12 22:20
       └ RE: Access 2010; Tabelle kopieren Karl Donaubauer26.02.12 00:01
          └ RE: Access 2010; Tabelle kopieren Andi-München26.02.12 08:33
  • Abfrage/Bericht in Access
  • eagle11.01.12 14:09
       └ RE: Abfrage/Bericht in Access PeterDoering11.01.12 18:25
          └ RE: Abfrage/Bericht in Access eagle12.01.12 15:06
       └ RE: Abfrage/Bericht in Access Karl Donaubauer12.01.12 19:07
          └ RE: Abfrage/Bericht in Access eagle12.01.12 22:07
             └ RE: Abfrage/Bericht in Access Karl Donaubauer13.01.12 18:59
                └ RE: Abfrage/Bericht in Access eagle15.01.12 12:45
                └ RE: Abfrage/Bericht in Access eagle24.02.12 23:17
  • Komprimierung auf Netzlaufwerk nicht möglich
  • mucuwe22.02.12 11:47
       └ RE: Komprimierung auf Netzlaufwerk nicht möglich PeterDoering22.02.12 23:02
          └ RE: Komprimierung auf Netzlaufwerk nicht möglich mucuwe22.02.12 23:20
             └ RE: Komprimierung auf Netzlaufwerk nicht mög... PeterDoering23.02.12 10:04
                └ RE: Komprimierung auf Netzlaufwerk nicht m... mucuwe24.02.12 19:38
  • In Access DB gespeichertes Bild in Word Serienbrie...
  • albe24.02.12 14:19
  • Anzahl von Werten aus Ja/Nein
  • albe24.02.12 10:58
       └ RE: Anzahl von Werten aus Ja/Nein Karl Donaubauer24.02.12 11:28
          └ RE: Anzahl von Werten aus Ja/Nein albe24.02.12 11:37
  • Formularcode in neue DB importieren access 2010
  • julesmeier22.02.12 12:50
       └ RE: Formularcode in neue DB importieren access 2... Gunter Avenius22.02.12 13:48
          └ RE: Formularcode in neue DB importieren access... julesmeier23.02.12 16:24
  • Textfelder zusammenführen
  • ADO20.02.12 14:15
       └ RE: Textfelder zusammenführen Karl Donaubauer20.02.12 16:50
          └ RE: Textfelder zusammenführen ADO21.02.12 11:22
    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: < 55 56 57 58 59 60 ... 61 62 63 64 65 66 67 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)