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

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

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

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

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

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 այս կոդը գործարկելու համար ստեղնը, հատուկ պատկերը կտեղադրվի տեքստի տուփի մեջ միանգամից, և դուք կարող եք խմբագրել տեքստային տուփը, որքան ձեզ հարկավոր է, տե՛ս նկարը.

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

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

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

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

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