Бұл мақалада біз сізге Word құжатындағы ішкі суреттерді өзгермелі суреттерге ауыстырудың 3 әдісін ұсынамыз.
Өздеріңіз білетіндей, біз Word құжатына сурет салған сайын, ол әдепкі бойынша «мәтінге сәйкес» орау мәнерін алады. Осылайша, сурет үлкен таңба ретінде қарастырылады, бұл оны жай шерту және сүйреу арқылы жылжытуға мәжбүр етеді. Тиісінше, біз олардың орналасуын оңай реттеу үшін осы суреттерді өзгермелі суреттерге ауыстыруымыз керек.
Әдеттегідей, бізде сізде таңдаудың 3 әдісі бар.
1-әдіс: бір суреттің орау мәнерін қолмен өзгерту
- Біріншіден, суретті тінтуірдің оң жағымен басып, меңзерді мәтінмәндік мәзірдегі «Мәтінді орау» параметріне жылжытыңыз.
- Әрі қарай «мәтінге сәйкес» дегеннен басқа кез келген стильді таңдаңыз. Сонда сіз суретті өзіңізге ұнайтын жерге апара аласыз.
2-әдіс: Әдепкі мәнерді өзгерту
Жоғарыда айтылғандай, әдепкі орау стилі «Мәтінге сәйкес» қойылады. Алайда суреттерді салмас бұрын конфигурацияны келесі қадамдармен өзгерте аласыз.
- Бастау үшін «Файл» қойындысын, содан кейін «Опциялар» пәрменін басып, «Word параметрлері» тілқатысу терезесін ашыңыз.
- Содан кейін сол жақ бағандағы «Қосымша» батырмасын басыңыз.
- Донды «Кесу, көшіру және қою» бөлігіне айналдырып, «Суретті кірістіру / қою» опциясын табыңыз.
- Орау мәнерін таңдау үшін ашылмалы батырманы басыңыз.
- Соңғысы, бірақ аз емес, жаңа параметрді сақтау үшін «OK» батырмасын басыңыз.
Болашақта салынатын барлық суреттер өзгермелі орау стилін алады.
3-әдіс: VBA арқылы бірнеше суреттің орау мәнерін өзгерту
- Бастау үшін VBA редакторын іске қосу үшін «Alt» + «F11» пернелер тіркесімін басыңыз.
- Әрі қарай, «Қалыпты» батырмасын басу арқылы «Қалыпты» жобаға өтіңіз.
- Содан кейін мәзір жолағындағы «Кірістіру» қойындысын нұқыңыз және ашылмалы мәзірден «Модуль» таңдаңыз.
- Енді редактордың оң жағындағы кодтау кеңістігін шығару үшін жаңа модульді екі рет басыңыз.
- Төмендегі макросты қойыңыз:
Sub ChangeInLineWithTextPicToFloatingPic()
Dim objDoc As Document
Dim objInLineShape As InlineShape
Dim objShape As Shape
Set objDoc = ActiveDocument
With objDoc
For Each objInLineShape In .InlineShapes
objInLineShape.ConvertToShape
Next objInLineShape
For Each objShape In .Shapes
objShape.Select
Selection.ShapeRange.WrapFormat.Type = wdWrapBehind
Next objShape
End With
End Sub
- Соңында «Іске қосу» батырмасын басыңыз немесе «F5» пернесін басыңыз.
Ескерту:
Бұл макро белсенді құжаттағы барлық кірістірілген суреттерді өзгермелі суреттерге өзгертеді және оларды «Мәтін артында» стиліне қояды. Егер сіз оларды басқа стильде пішімдеуіңіз керек болса, онда «Selection.ShapeRange.WrapFormat.Type = wdWrapBehind» код жолының тұрақтысын өзгертіңіз. Толығырақ санау үшін мына сілтемеге кіруге болады: https://docs.microsoft.com/en-us/office/vba/api/Word.WdWrapType
Сақтық көшірме жасау маңызды
Алдын алудың бір унциясы бір фунт емдеуге тұрарлық деген. Файлдарды құтқарудың жолдарын таба аламыз Сөздердің бұзылуы, әрқашан кеш болып көрінеді. Әрине, ең жақсысы - сақтық көшірмелер жасау сияқты алдын алу шараларын қолдану. Оларды қолыңызда ұстасаңыз, деректерді жоғалту туралы алаңдамай әрекеттерді орындауға ыңғайлы боласыз.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. жемқор xls және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com




