Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Bildgröße verringern
5 views
Skip to first unread message
ewald.s...@mri.bund.de
Oct 26, 2018, 2:55:43 AM10/26/18
to
Hallo NG,
ich muß die Bildgröße in Tabellen gespeicherter Bilder verringern.
Leider steigt mein Macro
Public WordTabelle As Table
Public I As Integer
Public J As Integer
Sub Bildgröße_reduzieren()
If Application.ActiveDocument.Tables.Count < 2 Then
Exit Sub
End If
For I = 2 To Application.ActiveDocument.Tables.Count
Set WordTabelle = Application.ActiveDocument.Tables(I)
With WordTabelle
For J = 2 To .Columns.Count - 1 Step 3
.Cell(2, J).Select
If Selection.InlineShapes.Count > 0 Then
Selection.Cut
Selection.PasteSpecial Link:=False, _
DataType:=wdPasteBitmap
End If
Next J
End With
Next I
End Sub
mit "Fehler 5342: Der angegebene Dateityp ist nicht verfügbar" aus.
Vielleicht kann ja jemand helfen
Danke
Ewald
ich muß die Bildgröße in Tabellen gespeicherter Bilder verringern.
Leider steigt mein Macro
Public WordTabelle As Table
Public I As Integer
Public J As Integer
Sub Bildgröße_reduzieren()
If Application.ActiveDocument.Tables.Count < 2 Then
Exit Sub
End If
For I = 2 To Application.ActiveDocument.Tables.Count
Set WordTabelle = Application.ActiveDocument.Tables(I)
With WordTabelle
For J = 2 To .Columns.Count - 1 Step 3
.Cell(2, J).Select
If Selection.InlineShapes.Count > 0 Then
Selection.Cut
Selection.PasteSpecial Link:=False, _
DataType:=wdPasteBitmap
End If
Next J
End With
Next I
End Sub
mit "Fehler 5342: Der angegebene Dateityp ist nicht verfügbar" aus.
Vielleicht kann ja jemand helfen
Danke
Ewald
0 new messages