Thema Datum  Von Nutzer Rating
Antwort
22.10.2012 10:15:42 Heiko Rompel
NotSolved
22.10.2012 10:25:28 Heiko Rompel
NotSolved
Rot Bild mit Dateinamen einfügen und Formatvorlagen zuweisen
 23.10.2012 10:46:23 Gast70683
NotSolved

Ansicht des Beitrags:
Von:
Gast70683		 Datum:
23.10.2012 10:46:23		 Views:
2212		 Rating:
     
Antwort:
  Ja
Thema:
Bild mit Dateinamen einfügen und Formatvorlagen zuweisen

Moin,

so das Einfügen und manipulieren funktioniert.

Sub InsertPicture()
Dim ret As Integer, sPic As String, fName As String, shpPicture As Shape
With Dialogs(wdDialogInsertPicture)
  ret = .Display
  If ret = vbTrue Then
    fName = .Name
    Rem Bild einfügen
    With Selection.InlineShapes.AddPicture(FileName:=fName)
   .LockAspectRatio = msoTrue
   ' eine von diesen vier Eigenschaften sollte reichen zum proportionalen Skalieren
   ' .Width = CentimetersToPoints(10)
   .Height = CentimetersToPoints(10)
   ' .ScaleWidth = 50
   ' .ScaleHeight = 50
    End With
    Selection.Style = ActiveDocument.Styles("Standard")
    'Selection.InsertBreak wdLineBreak
    Selection.InsertParagraphAfter
    Selection.Collapse wdCollapseEnd
    'Selection.TypeParagraph
    Rem Text einfügen
    fName = Dateiname_von(fName)
    Selection.TypeText Text:=fName
    Selection.Style = ActiveDocument.Styles("Untertitel")
    'Selection.InsertBreak wdLineBreak
    Selection.InsertParagraphAfter
    Selection.Collapse wdCollapseEnd
  End If
End With
End Sub

Function Dateiname_von(aa) As String 'Dateiname abtrennen
  Dateiname_von = Mid(aa, InStrRev(aa, "\") + 1)
  Dateiname_von = Mid(Dateiname_von, 1, Len(Dateiname_von) - 4)
End Function

Nur wie schaffe ich es, das auch eine Mehrfachauswahl beachtet wird?

Gruß Heiko

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.10.2012 10:15:42 Heiko Rompel
NotSolved
22.10.2012 10:25:28 Heiko Rompel
NotSolved
Rot Bild mit Dateinamen einfügen und Formatvorlagen zuweisen
 23.10.2012 10:46:23 Gast70683
NotSolved