У меня есть более 25 круговых диаграмм. Я хочу поместить их в одну презентацию в формате Power Point с разными слайдами.
public PowerPoint.Application pptApplication = new PowerPoint.Application();
public PowerPoint.Slides objSlides;
public PowerPoint._Slide objSlide;
public PowerPoint.TextRange objTextRng;
void putinPResen(string item)
{
WAIT_FORM wait3 = new WAIT_FORM();
try
{
pptPresentation = pptApplication.Presentations.Add(MsoTriState.msoTrue);
string path = System.IO.Directory.GetCurrentDirectory();
objSlides = pptPresentation.Slides;
objSlide = objSlides.Add(Count,
PowerPoint.PpSlideLayout.ppLayoutTitleOnly);
objTextRng = objSlide.Shapes[1].TextFrame.TextRange;
objTextRng.Text = item.ToString();
objTextRng.Font.Name = "Comic Sans MS";
objTextRng.Font.Size = 40;
objSlide.Shapes.AddPicture(path + "\\chart" + Count + ".png",
MsoTriState.msoFalse, MsoTriState.msoTrue, 150, 150, 500, 350);
File.Delete(path + "\\chart" + Count + ".png");
}
catch (Exception ex)
{
wait3.Close();
MessageBox.Show(ex.Message);
}
}
SaveFileDialog saveDialog = new SaveFileDialog();
saveDialog.Filter = "Excel files (*.pptx)|*.pptx|All files (*.*)|*.*";
if (saveDialog.ShowDialog() == System.Windows.Forms.DialogResult.OK)
{
Microsoft.Office.Interop.PowerPoint.CustomLayout customLayout =
pptPresentation.SlideMaster.CustomLayouts
[Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutText];
pptPresentation.SaveAs(saveDialog.FileName,
Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType.ppSaveAsDefault,
MsoTriState.msoTrue);
Когда я выполняю эту программу, у меня появилось несколько PowerPpoint и одно сообщение перехватацелое число вне диапазона от.2 не диапазон ..
Вы можете помочь в этом ... спасибо в первую очередь