Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս նկարը տեղադրել տեքստի տուփի մեջ:

Լռելյայնորեն, մենք կարող ենք նկարը կամ նկարը նույնքան արագ ներդնել աշխատանքային թերթի մեջ, օգտագործելով Տեղադրել գործառույթը, բայց այս հատկությունը չի կիրառվում տեքստային տուփի մեջ նկար տեղադրելու համար: Այս հոդվածի միջոցով ես կարող եմ օգնել ձեզ նկար ներդնել տեքստային տուփի մեջ, որքան ձեզ հարկավոր է:

Տեղադրեք նկար կամ պատկեր VBA կոդով տեքստային տուփի մեջ


նետ կապույտ աջ պղպջակ Տեղադրեք նկար կամ պատկեր VBA կոդով տեքստային տուփի մեջ

Տեքստային տուփի մեջ նկար տեղադրելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ, արեք հետևյալ կերպ.

1, Տեղադրեք տեքստային տուփ ՝ կտտացնելով Տեղադրել > Տեքստային տուփ, և ապա նկարիր տեքստային տուփ, տես նկարի նկարը.

փաստաթուղթը տեղադրեք պատկերը տեքստային տուփ 1-ում

2, Ապա պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Տեղադրեք նկար տեքստի տուփի մեջ.

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

ՆշումՎերոհիշյալ ծածկագրում Sheet4 այն թերթիկի անունն է, որը պարունակում է տեքստի վանդակը, որը ցանկանում եք տեղադրել նկար, և C: \ Users \ DT168 \ Desktop \ pictures \ Apple.JPG այն նկարի նկարի ուղին է, որը ցանկանում եք տեղադրել, դուք պետք է դրանք փոխեք ձեր կարիքի:

4, Եվ հետո սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, հատուկ պատկերը կտեղադրվի տեքստի տուփի մեջ միանգամից, և դուք կարող եք խմբագրել տեքստային տուփը, որքան ձեզ հարկավոր է, տե՛ս նկարը.

փաստաթուղթը տեղադրեք պատկերը տեքստային տուփ 2-ում


Առնչվող հոդվածներ քանակը:

Ինչպե՞ս նախադրված արժեք դնել տեքստային տուփում:

Ինչպե՞ս թույլ տալ, որ տեքստային տուփում մուտքագրվեն միայն թվեր:

Ինչպե՞ս կիրառել ուղղագրության ստուգումը տեքստային տուփում:

Ինչպե՞ս փոխել տեքստի տուփի գույնը ՝ հիմնված Excel- ի արժեքի վրա:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel- ի համար նախատեսված Kutools- ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80% -ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր առանձնահատկություններ, Աջակցում է Office / Excel 2007-2019 և 365. Աջակցում է բոլոր լեզուները: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հատկություններ ՝ 30-օրյա անվճար փորձաշրջան: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:
officetab ներքևում
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Harvey Hecker · 1 years ago
    Yes, I changed both. I did not get any errors when I ran the macro using the F5 key.

    I tried to place the macro in different folders of the workbook, worksheet, module,class module but the results were the same: no picture in the text box.


    Thanks for writing back. The last name is Hecker, BTW....typo
  • To post as a guest, your comment is unpublished.
    harvey heckef · 1 years ago
    Tried this macro on Excel 365. It did not work. Did not receive error message. Macro ran to completion. Picture is not shown in textbox.
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello,harvey,
      Do you change the sheet name and picture path to your own in the code? Please chek it, thank you!

      Note: In the above code, Sheet4 is the sheet name which contains the text box you want to insert picture, and C:\Users\DT168\Desktop\pictures\Apple.JPG is the picture path of the picture you want to insert, you should change them to your need.