Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe voeg ik een afbeelding in een tekstvak in?

Standaard kunnen we zo snel een afbeelding of afbeelding invoegen in een werkblad met de functie Invoegen, maar deze functie wordt niet toegepast op het invoegen van een afbeelding in een tekstvak. Met dit artikel kan ik u helpen een afbeelding in een tekstvak in te voegen als u dat wilt.

Voeg een afbeelding of afbeelding in een tekstvak met VBA-code


pijl blauwe rechterbel Voeg een afbeelding of afbeelding in een tekstvak met VBA-code


Om een ​​afbeelding in een tekstvak in te voegen, kan de volgende VBA-code u helpen, doe alstublieft als volgt:

1. Voeg een tekstvak in door op te klikken bijvoegsel > tekstvaken teken een tekstvak, zie screenshot:

doc voeg afbeelding in in tekstvak 1

2. Houd vervolgens de knop ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: voeg een afbeelding in het tekstvak in:

Sub ShapePicture()
    Dim xSh As Shape
    Dim xPic As IPictureDisp
    Dim xFileName As String
    xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
    Set xPic = LoadPicture(xFileName)
    Set xSh = Sheets("Sheet4").Shapes(1)
    xSh.Height = xPic.Height / xPic.Width * xSh.Width
    Set xPic = LoadPicture("")
    Set xPic = Nothing
    xSh.Fill.UserPicture xFileName
End Sub

Notes: In de bovenstaande code, Sheet4 is de bladnaam die het tekstvak bevat waarin u een afbeelding wilt invoegen, en C: \ Users \ DT168 \ Desktop \ foto \ Apple.JPG is het beeldpad van de afbeelding die u wilt invoegen, u moet deze naar uw behoefte wijzigen.

4. En druk vervolgens op F5 om deze code uit te voeren, wordt de specifieke afbeelding in één keer in het tekstvak ingevoegd en kunt u het tekstvak naar behoefte bewerken, zie screenshot:

doc voeg afbeelding in in tekstvak 2


Gerelateerde artikelen:

Hoe een standaardwaarde in een tekstvak instellen?

Hoe kunnen alleen cijfers in het tekstvak worden ingevoerd?

Hoe spellingcontrole in tekstvak toe te passen?

Hoe kan ik de tekstvakkleur veranderen op basis van de waarde in Excel?


Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 30-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.