I have just installed 13.1.0.0 and have been copying bitmaps (ListLinePlot) from notebooks (Edit->CopyAs->Bitmap) into various MS applications in Windows 10. PowerPoint and Word are OK, but Visio shows only a blank frame.
SetOptions[ListLinePlot, GridLines -> Automatic, Frame -> True, PlotRange -> All, PlotStyle -> Thick, BaseStyle -> {FontFamily -> "Gill Sans MT", FontSize -> 14}, LabelStyle -> Directive[Bold], ImageSize -> 500, ImageMargins -> 20]; ListLinePlot[RandomReal[{-1, 1}, 1000], PlotStyle -> Black] Will report as a bug if confirmed.