Word insert shape

Haloo Sneha,
das hat funktioniert Dankeschön! das
Wenn ich jetzt den Code geändert haben möchte, dass Logo automatisch
auf alle Tabellenblättern eingefügt aber aus einem bestimmten
Pfad. Ich habe diesen Code benutzt, er läuft auch durch, aber die Logos werden nicht eingefügt.
Kannst du noch mal helfen?
Danke und Viele Grüße
Andreas
Sub InsertPictureOnAllWorksheets()
Dim ws As Worksheet Dim pic As Shape
' Set the file path of the picture you want to insert
Dim picFilePath As String picFilePath = ""\\Mac\Home\Desktop\Logo gespiegelt rot 2.png""
' Insert the picture on the active worksheet
Set pic = ActiveSheet.Shapes.AddPicture(picFilePath, msoFalse, msoTrue, 0, 0, PicWidth, PicHeight)
' Iterate over all of the worksheets in the workbook
For Each ws In ThisWorkbook.Worksheets
' Insert the picture on the current worksheet
Set pic = ws.Shapes.AddPicture(picFilePath, msoFalse, msoTrue, 0, 0, PicWidth, PicHeight)
Next ws
End Sub

Hi DannyBerg!

There is an option to insert it in the cell itself but it is done manually (like you have to draw it like a rectangular shape).

To add a check box, click the Developer tab, click Insert, and under Form Controls, or active X control> click the check box.
>Click in the cell where you want to add the check box, draw a rectangular shape in the cell and the check box will appear.

To edit the size,
Right-click on the check box and click on the format control> click on the sidebar, then edit the size to what you want.

Tips: You can edit the height and width of the cells to make the Check box fit in more perfectly.

References: https://support.microsoft.com/office/9f201e46-8f6b-4a9d-a320-f44b28088cb0

Kind Regards,
Shakiru

Hallo,

es gibt keine Möglichkeit diese Funktion abzustellen.

Wenn du möchtest, dass es in Zukunft möglich ist, die Steuerelemente zum Einfügen zu deaktivieren, gib bitte hier deine Stimme ab:

http://word.uservoice.com/forums/304924-word-for-windows-desktop-application/suggestions/11453835-please-disable-insert-controls-in-word-table

Gruß,

Pauline

Hallo,



Vorlagen in Visio werden Shapes genannt.

Wie du ein benutzerdefiniertes Shape erstellst, das wird dir im Artikel
Erstellen eines benutzerdefinierten Shapes erläutert.



Gruss

Solveig

Sub InsertPics()

 Dim R As Range

 Dim Pfad As String, Datei As String

 Dim Sh As Shape

 Pfad = "C:\Users\…\"

 Application.ScreenUpdating = False

 For Each R In Range("C2", Range("C" & Rows.Count).End(xlUp))

 Datei = Pfad & R & ".bmp"

 If Dir(Datei) <> "" Then

 Set Sh = InsertPicture(Datei, R)

 End If

 Next Application.ScreenUpdating = TrueEnd Sub

Private Function InsertPicture(ByVal FName As String, ByVal Where As Range, _

 Optional ByVal LinkToFile As Boolean = False, _

 Optional ByVal SaveWithDocument As Boolean = True, _

 Optional ByVal LockAspectRatio As Boolean = True) As Shape

 'Inserts the picture file FName as link or permanently into Where

 Dim S As Shape, SaveScreenUpdating, SaveCursor

 SaveCursor = Application.Cursor

 SaveScreenUpdating = Application.ScreenUpdating

 Application.Cursor = xlWait

 Application.ScreenUpdating = False

 With Where

 'Insert in original size

 Set S = Where.Parent.Shapes.AddPicture( _

 FName, LinkToFile, SaveWithDocument, .Left, .Top, -1, -1)

 'Keep the proportions?

 S.LockAspectRatio = LockAspectRatio

 'Scale it to fit the cell

 S.Width = .Width

 If S.Height > .Height Or Not LockAspectRatio Then S.Height = .Height

 'Move it to the middle of the cells

 If S.Width < Where.Width Then S.Left = Where.Left + (Where.Width - S.Width) / 2

 If S.Height < Where.Height Then S.Top = Where.Top + (Where.Height - S.Height) / 2

 End With

 Set InsertPicture = S

 Application.Cursor = SaveCursor

 Application.ScreenUpdating = SaveScreenUpdating

End Function