Advertisement
Guest User

Untitled

a guest
Aug 22nd, 2019
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.94 KB | None | 0 0
  1. plot = ListPlot[{{0.25, 0.25}, {0.5, 0.5}, {0.75, 0.75}},
  2. Frame -> True, PlotRange -> {{0, 1}, {0, 1}}, Joined -> True,
  3. AspectRatio -> 1,
  4. FrameLabel -> {{"y (mm)", ""}, {"x (mm)",
  5. "aaaaaaaaaabbbbbbbbbbccc"}},
  6. BaseStyle -> {FontWeight -> "Bold", FontSize -> 40,
  7. FontFamily -> "Calibri"}, ImageSize -> 800];
  8.  
  9. Export["F:\export23.png", plot, "png"];
  10.  
  11. ImportString[
  12. ExportString[
  13. ListPlot[{{0.25, 0.25}, {0.5, 0.5}, {0.75, 0.75}}, Frame -> True,
  14. PlotRange -> {{0, 1}, {0, 1}},
  15. Joined -> True, AspectRatio -> 1,
  16. FrameLabel -> {{"y (mm)", ""}, {"x (mm)",
  17. StringJoin@RandomChoice[CharacterRange["a", "z"], 20]}},
  18. BaseStyle -> {FontWeight -> "Bold", FontSize -> 40,
  19. FontFamily -> "Calibri"}, ImageSize -> 2000], "PNG"], "PNG"]
  20.  
  21. Export["export23.png", Cell@BoxData@ToBoxes[plot]]
  22.  
  23. Export["export23.png", RawBoxes@ToBoxes[plot]]
  24.  
  25. Export["export23.png", ExpressionCell[plot]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement