Forensic Pharmacy and Poisoning

In the field of forensic pharmacy, the study of poisons and their effects is crucial. Poison can be in various forms and can lead to adverse health outcomes or even death. Poisoning can occur through exposure to chemicals, drugs, or other toxic substances. There are different types of poisoning based on severity, nature, and classification, ranging from acute to chronic, accidental to occupational. Understanding the characteristics and classifications of poisons is essential in forensic medicine and toxicology.

• Forensic pharmacy
• Poisoning
• Toxicology
• Health effects
• Poison classification

carelyel Follow

Uploaded on Apr 20, 2025 | 1 Views

Download Presentation

Please find below an Image/Link to download the presentation.

The content on the website is provided AS IS for your information and personal use only. It may not be sold, licensed, or shared on other websites without obtaining consent from the author.If you encounter any issues during the download, it is possible that the publisher has removed the file from their server.

You are allowed to download the files provided on this website for personal or commercial use, subject to the condition that they are used lawfully. All files are the property of their respective owners.

The content on the website is provided AS IS for your information and personal use only. It may not be sold, licensed, or shared on other websites without obtaining consent from the author.

Presentation Transcript

1. AUTOMATING YOUR CHARTS Using VBA or C#

2. Automation Methods /// Return true if shape is a MekkoGraphics chart bool IsMekkoChart(PowerPoint.Shape sh); /// This function will open the provided Mekko Graphics chart for editing void EditMekkoChart(PowerPoint.Shape sh); /// This function will save and close the currently opened Mekko Graphics chart void SaveAndCloseMekkoChart(); /// This function returns True if the provided Shape is a Mekko Graphics chart bool IsMekkoChart(PowerPoint.Shape sh); /// This function will extract the chart data from the currently opened Mekko Graphics chart string[,] GetOpenedChartData(); /// This function will extract the chart data from the provided Mekko Graphics chart string[,] GetChartData(PowerPoint.Shape shape); /// This function will inject the chart data into the currently opened Mekko Graphics chart void SetOpenedChartData(string [,] data); /// This function will inject the chart data into the provided Mekko Graphics chart PowerPoint.Shape SetChartData(PowerPoint.Shape shape, string[,] data); /// This function will refresh the Excel Link (if any) for the provided Mekko Graphics chart bool RefreshExcelLink(PowerPoint.Shape shape); /// This function will Update the provided Mekko Graphics chart bool RefreshChart(PowerPoint.Shape shape); /// Replaces entire ChartDataArray void ReplaceOpenedChartDataArray(string[,] data); /// Replaces entire ChartDataArray for shape PowerPoint.Shape ReplaceChartDataArray(PowerPoint.Shape shape, string[,] data);

3. VBA Sample Code Switch to Microsoft Visual Basic Editor (Alt+F11) to see more code samples // VBA Sub UpdateSelectedChart() Dim addIn As COMAddIn Dim MG_utilities As Object Dim sel As Selection Dim sh As Shape Set addIn = Application.COMAddIns("MekkoGraphicsAddin") Set MG_utilities = addIn.Object If (MG_utilities Is Not Null) Then Set sel = ActiveWindow.Selection If (sel.ShapeRange.Count = 1) Then Set sh = sel.ShapeRange(1) If (MG_utilities.IsMekkoChart(sh)) Then MG_utilities.RefreshChart (sh) End If End If End If End Sub

4. C# Interface public interface IAddInUtilities { void EditMekkoChart(PowerPoint.Shape sh); void OpenTaskPanes(PowerPoint.Shape sh); void SaveAndCloseMekkoChart(); bool IsMekkoChart(PowerPoint.Shape sh); string[,] GetOpenedChartData(); string[,] GetChartData(PowerPoint.Shape shape); /// <summary> /// Only Replaces corresponding cell values in ChartDataArray if cells and valueas are not empry. Does not change size of ChartDataArray /// </summary> void SetOpenedChartData(string[,] data); /// <summary> /// Only Replaces corresponding cell values in ChartDataArray if cells and valueas are not empry. Does not change size of ChartDataArray /// </summary> PowerPoint.Shape SetChartData(PowerPoint.Shape shape, string[,] data); /// <summary> /// Replaces entire ChartDataArray /// </summary> /// <param name="shape"></param> /// <param name="data"></param> /// <returns></returns> void ReplaceOpenedChartDataArray(string[,] data); /// <summary> /// Replaces entire ChartDataArray /// </summary> /// <param name="shape"></param> /// <param name="data"></param> /// <returns></returns> PowerPoint.Shape ReplaceChartDataArray(PowerPoint.Shape shape, string[,] data); bool RefreshExcelLink(PowerPoint.Shape shape); bool RefreshChart(PowerPoint.Shape shape); bool ConvertChart(PowerPoint.Shape shape); }

5. C# Sample Code // C# // First set a reference to MekkoAddin10.dll located in the Mekko Graphics installation folder public void UpdateSelectedChart(Office.IRibbonControl control) { object addInName = "MekkoGraphicsAddin"; Office.COMAddIn addIn = Globals.ThisAddIn.Application.COMAddIns.Item(ref addInName); WizardAddin.IAddInUtilities MG_utilities = (WizardAddin.IAddInUtilities)addIn.Object; } if (MG_utilities != null) { } PowerPoint.DocumentWindow dw = Globals.ThisAddIn.Application.ActiveWindow; PowerPoint.Selection sel = dw.Selection; if (sel.ShapeRange.Count == 1) { PowerPoint.Shape sh = sel.ShapeRange[1]; if (MG_utilities.IsMekkoChart(sh)) MG_utilities.RefreshChart(sh); }