когда сохроняешь картинку надо нажать сохранить как выбираешь куда сохранять и в названии после имени стоит формат. ты его стираешь и ставишь нужный
а диаграмма не копируется?
Function Dec2Bin(ByVal x As Integer) As String
Dim t As Integer, r As String
r = "": t = x
While t >= 2
r = Trim(Str(t Mod 2)) + r
t = t \ 2
Wend
Dec2Bin = Trim(Str(t)) + r
End Function
Sub test()
MsgBox Dec2Bin(35)
End Sub
Во всех 2 вопросах ответ 2