テンプレートとしてExcelのセルに画像コントロールボックスを追加する

Question

画像ボックスをExcelセルに追加することは可能ですか？ユーザーはExcelの上部にある画像の追加ツールをクリックする代わりに、セルのボックスをクリックして画像を挿入できますか？結果の

例： enter image description here

Answer 1

あなたは、このコードで行くことができます：

With Application.FileDialog(msoFileDialogFilePicker) 
    .AllowMultiSelect = False 
    .ButtonName = "Submit" 
    .Title = "Select an image file" 
    .Filters.Clear 
    .Filters.Add "JPG", "*.JPG" 
    .Filters.Add "JPEG File Interchange Format", "*.JPEG" 
    .Filters.Add "Graphics Interchange Format", "*.GIF" 
    .Filters.Add "Portable Network Graphics", "*.PNG" 
    .Filters.Add "Tag Image File Format", "*.TIFF" 
    .Filters.Add "All Pictures", "*.*" 

    If .Show = -1 Then 
     Dim img As Object 
     Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1)) 

    End If 
End With 

埋め込みワークシート（例えばのActiveX /フォーム）でのオブジェクトのクリックイベントへのコード。 注：ソリューションはユーザーからのものです。ポートランドランナー：Excel VBA - Insert image (using dialog box) into a certain cell。

結局、加算値はかなり低いです。コードを機能させるためには、ファイルを.xlsmとして保存する必要があります。