ওয়ার্কবুকে অবস্থিত চিত্র থেকে ভিবিএর সাথে শিরোনামে ছবি .োকান

এটি ব্যবহার করা হচ্ছে তবে এটি আজ খুব তাড়াতাড়ি স্পষ্ট হয়ে উঠেছে যে ছবিটি সমস্ত সময় একই ডিরেক্টরিতে থাকবে বলে আশা করা ভাল পরিকল্পনা নয়।

With ActiveSheet.PageSetup.LeftHeaderPicture
    .filename = ThisWorkbook.path + "\pic.jpg"
    .Height = 275.25
    .Width = 195
End With

ছবিটি কখনই পরিবর্তিত হয় না, শিরোনামের পাঠ্যটি প্রতিদিন পরিবর্তিত হয় তাই এটি স্বয়ংক্রিয়ভাবে উত্পন্ন হওয়া দরকার তাই এটি ভিবিএর সাহায্যে সন্নিবেশ করা দরকার কারণ আমি যখনই ছবিটি শিরোনামে রাখছি তেমনি প্রতিবার প্রাসঙ্গিক ডেটা পরিবর্তন হয়।

microsoft-excel vba

— এখানে ক্লিক করুন
সূত্র

সামান্য বিভ্রান্ত, আপনার প্রশ্ন কি?

— মি

ছবিটি এক্সএল ফাইলে রাখুন, ভিবিএ ছাড়াই স্থির: আপনি বলেছিলেন এটি কখনও পরিবর্তন হয় না ...

— হাস্তুর

@ ওম 3 আর, আমি একটি অতিরিক্ত ওয়ার্কশিটে একটি ছবি সঞ্চয় করতে এবং এটি ভিবিএ সহ শিরোনামে .োকাতে চাই।

— এখানে

@ হাস্তুর, এটি কাজ করবে না। শিরোনামটি কেবল একটি চিত্র নয়। এটি গতিশীলভাবে পাঠ্যও উত্পন্ন।

— এখানে 20

আপনার কাছে ইতিমধ্যে একটি বাহ্যিক চিত্র ফাইল আমদানি করতে এবং একটি শিরোনামে আমদানি করার কোড রয়েছে । যেহেতু আপনার এমবেডেড ছবি রয়েছে তাই আমরা এটিকে রফতানি করতে পারি এবং তারপরে আপনার কাছে থাকা কোডটি ব্যবহার করতে পারি। বলুন আমাদের আছে:

এই কোডটি করবে:

ওয়ার্কশিটে একটি চার্ট অবজেক্ট তৈরি করুন
চার্টে ছবিটি অনুলিপি করুন
একটি বাহ্যিক ফাইলে চার্ট রফতানি করুন
চার্ট মুছুন

কোড:

Sub SaveTheBaby()
    Dim chrt As Chart, MyPic As Shape
    Set MyPic = ActiveSheet.Shapes(1)

    ActiveSheet.Shapes.AddChart
    Set chrt = ActiveSheet.ChartObjects(1).Chart

    MyPic.Select
    MyPic.Copy
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.Paste
    chrt.Export Filename:="baby.jpg"
    ActiveSheet.ChartObjects(1).Delete
End Sub

— গ্যারি এর ছাত্র
সূত্র