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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • 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
  • 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
    Schulle65
    Gesendet: 03.03.12 19:14
    Betreff: RE: Bilder komprimieren


    habe eben noch was dazu festgestellt:
    - wenn man wdFormatFilteredHTML verwendet dann wird nur die komprimierte Bilddatei gespeichert.
    - wenn man im leeren Word Dokument eine Tabelle 1x1 erstellt (mit den entsprechenden Einstellungen) dann wird das Ergebnis auch nur so klein wie die Tabelle / Zelle.

    der geänderte Code sieht dann so aus:

    '-----------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:=wdFormatFilteredHTML

    odoc.Close False
    objWord.Quit

    Set odoc = Nothing
    Set objWord = Nothing

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

    '----------Ende------------------------
    Top of the page Bottom of the page


    Seite: < 76 77 78 79 80 81 ... 82 83 84 85 86 87 88 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)