I have the following code written in an attempt to upload an image file to ChatGPT that can be read and understood along with accompanying text. It isn't working and need to get it to work.
' Function to extract an image path from a string Function ExtractImagePath(ByVal text As String) As String Dim regEx As Object Dim matches As Object Dim match As Object
' Create regex object Set regEx = CreateObject("VBScript.RegExp")
' Set regex pattern to look for image paths ' This pattern looks for paths ending with .png, .jpg, .jpeg, or .bmp regEx.Pattern = "(([a-zA-Z]:\\|\\\\)[^\s\\/:*?""|]+(\\[^\s\\/:*?"" 0 Then ExtractImagePath = matches(0).Value Else ExtractImagePath = "" End If
' Clean up Set regEx = Nothing Set matches = Nothing End Function
' Function to read an image file and convert it to base64 Function GetBase64FromImage(ByVal filePath As String) As String On Error GoTo ErrorHandler
Dim streamObj As Object Dim bytes() As Byte
' Create ADODB.Stream object Set streamObj = CreateObject("ADODB.Stream")
' Open the stream and read the file With streamObj .Type = 1 ' Binary .Open .LoadFromFile filePath bytes = .Read .Close End With
' Convert binary data to base64 GetBase64FromImage = Base64Encode(bytes)
' Clean up Set streamObj = Nothing Exit Function
ErrorHandler: GetBase64FromImage = "" Debug.Print "Error reading image: " & Err.Description End Function
' Function to encode binary data as base64 Function Base64Encode(ByRef arrData() As Byte) As String Dim objXML As Object Dim objNode As Object
' Create MSXML DOMDocument Set objXML = CreateObject("MSXML2.DOMDocument")
' Create a base64 node Set objNode = objXML.createElement("b64")
' Set the datatype to bin.base64 objNode.DataType = "bin.base64"
' Set the node value to the binary data objNode.nodeTypedValue = arrData
' Get the base64 string Base64Encode = objNode.text
' Clean up Set objNode = Nothing Set objXML = Nothing End Function
' Debug function to test API connection and image handling Sub DebugGPTResponse() Dim testPrompt As String Dim result As String Dim errorMsg As String
On Error GoTo ErrorHandler
' Test prompt with an image path testPrompt = "What can you see in this image? C:\Users\Images\test_image.png Please describe it in detail."
' Call the function result = GetGPTResponse(testPrompt)
' Output success message with the response MsgBox "Connection successful. Response: " & result Exit Sub
ErrorHandler: errorMsg = "Error " & Err.Number & ": " & Err.Description MsgBox "Connection failed. " & errorMsg End Sub
Influencer Marketing Campaign Category: Brand Management, Content Creation, Digital Marketing, Influencer Marketing, Internet Marketing, Marketing, Social Media Marketing Budget: $30 - $250 USD
24 Mar 2026 23:03 GMT
Irish Heritage E-commerce Website Development Category: ECommerce, Graphic Design, Payment Gateway Integration, PHP, User Experience Research, Web Application, Web Design, Web Development Budget: €6 - €12 EUR
Native Conversational Japanese Voice Recording -- 2 Category: Audio Editing, Audio Services, Conversational AI, Japanese Teaching, Japanese Translator, Japanese Tutoring, Voice Acting, Voice Over, Voice Talent Budget: ₹600 - ₹1500 INR
24 Mar 2026 22:56 GMT
Real Estate Guidebook Design Category: Book Design, Brochure Design, Content Development, Flyer Design, Graphic Design, Photoshop, Print Design, Real Estate Budget: $30 - $250 USD
24 Mar 2026 22:56 GMT
Business Strategy Consultant -- 2 Category: Business Analysis, Business Consulting, Business Development, Business Plans, Business Strategy, Competitor Analysis, Market Research, Marketing Budget: £250 - £750 GBP
24 Mar 2026 22:55 GMT
Sitcom Production and Casting Category: Audio Production, Casting, Film Production, Media Relations, Music Production, Post Production, Pre Production, Project Management, Talent Acquisition, Video Production Budget: £10 - £25 GBP
Ongoing Google Ads Campaign Management Category: Conversion Rate Optimization, Digital Marketing, Google Ads, Google Adwords, Google Analytics, Internet Marketing, PPC Marketing, WordPress Budget: $8 - $15 CAD
24 Mar 2026 22:52 GMT
Indoor & Outdoor Scene Segmentation Category: Computer Vision, CUDA, Data Annotating, Deep Learning, Image Processing, Machine Learning (ML) Budget: $30 - $250 USD
24 Mar 2026 22:52 GMT
Activities Management Platform Development Category: Agile Development, API Development, Budgeting And Forecasting, Database Design, Figma, Frontend Development, Full Stack Development, PHP, Project Management, SaaS Budget: $1500 - $3000 AUD
24 Mar 2026 22:51 GMT
Rediseño de cartilla digital Category: Corporate Identity, Covers & Packaging, Editorial Design, Graphic Design, Illustration, Logo Design, PDF, Typography Budget: $10 - $30 USD
24 Mar 2026 22:49 GMT
iwandasaputraa Category: CMS, CSS, Email Marketing, HTML, Mailchimp, PHP, SEO, Web Development, Website Optimization, WordPress Budget: $15 - $25 USD