Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Grafik in Formatvorlage einfügen
zurück: Zeilennummern: Schrift gestalten-wie? weiter: Asiatische Typografie?! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast0000000000
Gast


Verfasst am:
11. Aug 2008, 14:54
Rufname:

Grafik in Formatvorlage einfügen - Grafik in Formatvorlage einfügen

Nach oben
       Version: Office XP (2002)

Hallo,

ich erstelle im Moment eine Formatvorlage und möchte es dem späteren Benutzer ermöglichen an einer bestimmten Stelle eine Grafik einzufügen.

Dankbar für jegliche Hilfe.
Gast0000000000
Gast


Verfasst am:
12. Aug 2008, 09:11
Rufname:


AW: Grafik in Formatvorlage einfügen - AW: Grafik in Formatvorlage einfügen

Nach oben
       Version: Office XP (2002)

Hab das gefunden:

Code:

Public Sub ProtectedInsertPicture()
'Macro von Jay Freedman
Dim ilsPicture As InlineShape
Dim strFileName As String
Dim sngRatio As Single
Const max_width = 216 ' = 3 inches (in points)

' temporarily unprotect
ActiveDocument.Unprotect

' show Insert Picture dialog
With Dialogs(wdDialogInsertPicture)
If .Display = 0 Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, _
NoReset:=True
Exit Sub
End If
strFileName = .Name
End With

' remove macrobutton
Selection.Delete

Set ilsPicture = ActiveDocument.InlineShapes _
..AddPicture( _
FileName:=strFileName, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Range:=Selection.Range)

' limit size of picture to max_width (optional)
With ilsPicture
If .Width > max_width Then
sngRatio = CSng(max_width) / .Width
..Width = max_width
..Height = .Height * sngRatio
End If
End With

' reprotect, keeping form field contents intact
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True

End Sub


kann damit leider wenig anfangen da ich Fehlermeldungen bekomme die ich nicht verstehe....???
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Word-Serienbrief: jpg automatisert einfügen 4 JOE_NDS 5016 01. Okt 2010, 17:56
Gast Word-Serienbrief: jpg automatisert einfügen
Keine neuen Beiträge Word Serienbriefe: Bilder aus Ordner in Serienbrief einfügen 3 alioli1 2046 29. Nov 2009, 11:45
Gast Bilder aus Ordner in Serienbrief einfügen
Keine neuen Beiträge Word Serienbriefe: Adressen aus Office tabellen dokument in dokument einfügen 1 Anna-L. 1218 15. Nov 2009, 21:42
charlybrown Adressen aus Office tabellen dokument in dokument einfügen
Keine neuen Beiträge Word Serienbriefe: Einfügen versch. Adressen aus einer Datenqu. in ein Dokument 9 Gast 921 04. Nov 2009, 15:02
charlybrown Einfügen versch. Adressen aus einer Datenqu. in ein Dokument
Keine neuen Beiträge Word Serienbriefe: seriendruck - bilder einfügen - rotes x 2 Gast20 4524 12. Aug 2009, 10:33
Gast seriendruck - bilder einfügen - rotes x
Keine neuen Beiträge Word Serienbriefe: Bilder in Serienbrief einfügen 4 Konte 10453 05. Aug 2009, 15:28
charlybrown Bilder in Serienbrief einfügen
Keine neuen Beiträge Word Serienbriefe: Formatvorlage für Serienbriefe im nachhinein ändern 1 worf 3062 22. Mai 2009, 23:37
charlybrown Formatvorlage für Serienbriefe im nachhinein ändern
Keine neuen Beiträge Word Serienbriefe: Bilder in Worddokumente automatisch einfügen 0 iam_RaGe 2851 24. März 2009, 14:07
iam_RaGe Bilder in Worddokumente automatisch einfügen
Keine neuen Beiträge Word Serienbriefe: Serienbrief: Vollständige Empfängerliste als Feld einfügen 2 Gast2008 2861 23. Okt 2008, 10:37
Auch Gast Serienbrief: Vollständige Empfängerliste als Feld einfügen
Keine neuen Beiträge Word Serienbriefe: Anrede einfügen 0 ArianeH 911 27. Aug 2008, 11:47
ArianeH Anrede einfügen
Keine neuen Beiträge Word Serienbriefe: Grafik als Seriendruckfeld?? 9 annA_1985 1737 14. Jul 2008, 16:31
dollar Grafik als Seriendruckfeld??
Keine neuen Beiträge Word Serienbriefe: Wenn dann Textbaustein / Autotext einfügen 0 miricoleo 4173 01. Dez 2007, 21:04
miricoleo Wenn dann Textbaustein / Autotext einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln